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PROGRAMS FOR STORAGE MANIPULATION AND CALCULATION OF DATA USING DECTAPE 


DECUS Program Library Write-up 


DECUS No. 8-137 


INTRODUCTION: These programs use DECtape for the storage of 

data files. Once data has been stored on DECtape, the statistical 
or calculation programs will operate on particular parts of it 
selected by the user. All programs are conversant. They ask 
questions regarding execution and accept answers via the teletype. 

Tape unit #1 is used for data tape. Data tapes may be formatted 
in standard (129io) or shorter block lengths. Data is stored and 
operated on in floating point. Data files may be complete or partial 
blocks of tape. Each file is terminated by a "$" (244) on DECtape. 

Up to 42 numbers may be stored on one block of standard data tape. 

GENERAL OPERATING INSTRUCTIONS: Programs which have the 

capability of writing on data tape will first query the user about 
data tape format. Standard data tapes have (129jo) computer words 
per block. All questions requiring yes or no answers are answered 
by typing Y or N'. The floating point input subroutine is used 
for all inputs so all number answers to questions are in decimal. 

Line or block numbers may be input singly or successively and 
input is terminated by typing "CTRL/FORM". An example is: 

BLOCK NUMBERS : 10 23,27 50 (CTRL/FORM typed here) 

This would cause the program to read data in blocks 10, 23, 24, 25, 

26, 27, and 50. 

The only exception to this is in FORT where the last group of block 
numbers is terminated by typing M $". 

After execution of a program, the character CTRL/C (+C) will 
return control to the Monitor so the iiext program can be called. 

Use of this feature enables the user to make a control paper tape 
which contains program calls and the appropriate answers and 
commands for execution so that long periods of unattended data 
processing are possible. 
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SUBROUTINES: SUBS is a package of four subroutines used by 

most of these programs. SUBS contains six pointers on page zero 
and subroutines in the area from 4000 to 7577. 

These subroutines are: 


MESSAGE 

<4000,4057> 

Type packed text 

UNFLOAT 

<4100,4130> 

Unfloat floating point numbers 

RWTAPE 

<4200,4342> 

Read and Write DECtape 

FPOINT 

<4400,7577> 

Floating point Output Controller 

The 

pointers are: 


0002 

4200 

/RWTAPE 

0003 

4000 

/MESSAGE 

0004 

4100 

/UNFLOAT 

0005 

7400 

/FPOINT Input 

0006 

7200 

/FPOINT Output 

0007 

5600 

/FPOINT Arithmetic Interpreter 


FLEX is an extended version of Floating Point which lacks the 
Output Controller. It is used to overlay the FPOINT section of SUBS 
in the programs which use extended Floating Point. 

LISTINGS: Source programs are furnished as symbolic files on DECtape. 
In order to compile one of the programs it is necessary to create one 
file which is composed of several symbolics for use with XPAL. SUBS 
should be called before using XLOAD to load the Pass 2 output of XPAL. 
The resulting program is updated including the area used by SUBS. 

Three programs, LCOVAR, BCALC AND LCALC, use extended Floating 
Point without the Output Controller (FLEX). The procedure to initially 
load one of these programs is to call SUBS, then FLEX, and then XLOAD 
the Pass 2 of XPAL. 
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The source programs are made up of the following symbolic files 


in order: 

SYMBOLIC 

SOURCE 

NO. of BLOCKS 

DATR1 


15 

DATR2 


15 


DATRIT 

30 

EDI 


15 

ED2 


12 

ED3 


12 

ED4 


12 

ED5 


6 


EDATA 

57 

SI 


10 

S2 


10 

S3 


12 

S4 


10 

S5 


4 


SDT 

46 

FI 


16 

F2 


12 

F3 


15 

F4 


12 

F5 


12 

F6 


6 


FORT 

73 

Cl 


12 

C2 


12 

C3 


12 

C4 


12 

C5 


12 

C6 


8 


COVAR 

68 


3 




SYMBOLIC SOURCE NO. of BLOCKS 

Cl 12 

C2 12 

C3 12 

LCA 12 

LC5 12 

C6 8 

LCOVAR 68 

TP1 12 

TP2 15 

TP3 15 

TP4 8 

TPAIR 50 

BC1 12 

BC2 10 

BC3 3 

BCALC 25 

LC1 12 

LC2 12 

LC3 6 

LCALC 30 
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* 4000 


M ESS, 

0 



CL A 

CM A 


TAD 

MESS 


DCA 

0017 


TAD 

I 0017 


DCA 

M SRGHT 


TAD 

MSRGHT 


RTR 



RTR 



RTR 



JMS 

TYPECH 


TAD 

MSRGHT 


JMS 

TYPECH 


JMP 

MESS+4 

M SRGHT, 

0 


TYPECH, 

0 



AND 

MASK77 


SNA 



JMP 

I 0017 


TAD 

M 40 


SMA 



JMP 

• + 3 


TAD 

C340 


JMP 

M TP 


TAD 

M3 


SZA 



JMP 

• + 3 


TAD 

C212 


JMP 

MTP 


TAD 

M2 


SZA 



JMP 

. + 3 


TAD 

C215 


JMP 

MTP 


TAD 

C245 

M TP, 

TSF 



JMP 

. - 1 


TLS 



CL A 



JMP 

I TYPEC 

MASK 77, 

0077 

M 40, 

7740 

C 340, 

0340 

M 3, 

7775 

C 21 2, 

0212 

M 2, 

7776 


C21 5, 

021 5 

C 24 5, 

0245 

* 4100 



UNFL, 

0 



CL A 
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SZA SMA 

JMP . + 3 

CL A 

JMP DONE+ 1 
TAD Ml 3 

SNA 

JMP DONE 
SMA 

JMP ERROR 
DCA 44 


GO, 

CLL 

TAD 45 

SPA 

CML 

RAR 

DCA 45 

I SZ 44 

JMP GO 


DONE, 

TAD 45 

JMP I UNFL 


M 13, 

- 13 


ERROR, 

* 2 

HLT 



4200 

/POINTER 


4000 

/POINTER 

<r 

4100 

/POIN TER 


TO READ-WRITE TAPE ROUTINES 
TO MESSAGE SUBROUTINE 
TO UNFLOAT SUBROUTINE 
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/SUBROUTINE TO READ AND WRITE ON MAG TAPE 
/USES THE FOLLOWING CALLING SEQUENCE : 

/ JMS I RWTAPE /CALL SUBR. 

/ XYZZ /X= UNI T it Y=4 FOR WRITE 

/ /Y= 2 FOR READ, Z=# OF BLOCKS 

/BLOCK, OOOO /STARTING BLOCK # 

/ 0000 /CORE LOCATION READ OR WRITTEN INTO 

/ 0000 /PROGRAM RETURN S HERE WITH TAPE HALTED 


* 4200 


RWTAPE, 

0 

CLA 

CLL 

TAD 

I RWTAPE 

I SZ 

RWTAPE 

DCA 

RWREGA 

TAD 

I RWTAPE 

I SZ 

RWTAPE 

DCA 

RWBLK 

CMA 

TAD 

I RWTAPE 

I SZ 

RWTAPE 

DCA 

RWCLO C 

TAD 

RWM12 

DCA 

RWTCNT 

RWBGN, 

TAD RWADBN 

DCA 

I RWADCA 

TAD 

RWREGA 

AND 

RW0077 

CMA 

DCA 

RWBCNT 


TAD 

RWREGA 

AND 

RW7000 

TAD 

RW0610 

DTCA DTXA 

R WREV, 

JMS RWWAIT 

JMP 

RWFWD-4 

TAD 

RWBN 

CMA 


TAD 

RWBLK 

SPA 

CLA 

JMP 

RWREV 


TAD 

RWREGA 

AND 

RW7000 

TAD 

RW0210 

DTCA DTXA 

R WFWD, 

JMS RWWAIT 

JMP 

RWBGN 

TAD 

RWBN 

CIA 

TAD 

RWBLK 
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SMA 


JMP 

• + A 

SPA 

CLA 

JMP 

RWBGN 

JMP 

RWFWD 


TAD RWREGA 
CLL RTR 
RAR 

AMD RW0070 
TAD RW0110 
DTXA 

TAD RWCLOC 
DCA I RWADCA 
RWAGN* ISZ RWBCMT 
JMP . + 4 
TAD RW0200 
DTXA 

JMP I RWTAPE 
TAD RWM200 
DCA I RWADWC 
JMS RWWAIT 
JMP RWBGM 
JMP RWAGN 



RWWAIT* 0 
DTXA 
DTSF 
JMP .-1 
DTRB 
SMA CLA 
JMP RWWOUT 
ISZ RWTCNT 
JMP I RWWAIT 
DTRA 

AMD RW0200 

SZA 

DTXA 

DTRB 

HLT 

JMP .-1 

RWWOUT* ISZ RWWAIT 
JMP I RWWAIT 



RWTCNT* 0 
R WM 1 2* - 1 2 
R WBN* 0 
R WREGA, 0 
RWCLOC* 0 
R WBLK* 0 


8 






PAGE 1 


RWBCNT, 

R WADCA, 
RWADWC, 

R WADBN, 

R W7000* 
RW0610, 
RW0210, 

R W01 1 0» 
RW0200, 

R W0077* 

R W0070* 
RWM200* 

D TRA= 6761 
DTCA=6762 
DTXA= 6764 
D TSF= 6771 
D TRB= 6772 
D TLB= 6774 


0 

7755 

7754 

RWBN 

7000 

0610 

0210 

0110 

0200 

0077 

0070 

-200 


$ 
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DATRIT « DATA WRITE 


PURPOSE: This is a program to write data on DECtape directly 

from the ASR-33. Numerical data is stored on DECtape in floating 
point format and a "$" (244) is written immediately following the 
last data point to signify the end of data in each block of tape. 

OPERATION: The program will query the user about the format 

of the data tape mounted on unit #1. Next, the program asks 
"START AT BLOCK : " and the user types the block number (decimal) 
of the first data block to be recorded. 

At this point the program waits for data input. Only valid 
floating point inputs are accepted; illegal characters are ignored. 

Up to 42 floating point numbers and the terminating "$" may be recorded 
on a block of standard data tape. After the input of the maximum 
number of data points (42 for standard data tape), data will auto¬ 
matically be recorded in the starting block number previously 
specified. Successive data will be recorded in successive blocks. 

CONTROL CHARACTERS: 

$ If less than the maximum number of data points per block 

are to be recorded the input of a "$" will terminate data 
input for that block and cause recording of data up to 
the "$". Next data will go in the next successive block. 

/ This character causes the program to type the block 
number of the next data block to be recorded, 

"NEXT BLOCK - nn ". 

# This character is used if data is not to be recorded in 
successive blocks of data tape. It causes the program 
to return to "START AT BLOCK : ". 

CTRL/C Return to tape Monitor. 
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DATRIT J 


/Call program 


STD FORMAT ?_N_ /No 

BLOCK LENGTH (DEC) ! AO £ /60 words P er block 


TYPE OUT ? J_ 

START AT BLOCK : 10 

1 2 3 4 5 6 7 8 9 10 


1 2 

3 

A 5 

6 

7 8 

9 

£ 


LF 

1 2 

3 

A 5 

6 

7 8 

9 

10 



11 12 13 14 15 16 17 18 

LF 

1 2 3 A 


_5 S 

2 3 A 5 6 S 


19 


EXT BLOCK = + 

£ 

START AT BLOCK 

L..s. .3 4 5 6 S a 

6 5 A 3 2 1 S j 

2 A 6 8 10 12 S 

+C 


1A 

SO J 


/Type out data input 
/Data Input 

/19 numbers per block max. 


/Next block of data input 

/Next block of data input 
/Next block of data input 
/Request for next block # 

/Request new starting block # 

/Data input block #20 
/Data input block #21 
/Data input block #22 
/Return control to tape Monitor 
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PAGF 

@ 

1 

/ DATRI T* DATA WRITE 

/MOUNT DATA TAPE ON UNIT #1. ANSWER QUESTIONS 
/»Y» OR "N". IF LESS THAN FULL DATA BLOCK 

0 200 

6046 

/TERMINATE DATA BY "$"• "/" CAUSES TYPEOUT 

/OF NEXT BLOCK #. "#" CAUSES REQUEST FOR 

/NEW STARTING BLOCK #• "CTRL/C" RETURNS 
/CONTROL TO MONITOR. 

* 200 

TLS 

0 201 

7200 


CL A 

0 202 

1154 

FORMAT* 

TAD TXT1 / "STD FORMAT ? " 

0203 

3012 


DCA 12 

0 204 

1123 


TAD Ml 28 

0205 

3537 


DCA I WORDS 

0 206 

1126 


TAD M42 

0207 

3127 


DCA MINC 

0210 

1 143 


TAD OUT 

021 1 

3542 


DCA I FLOUT 

0212 

1211 


TAD . - 1 

0213 

3303 


DCA TAKN+1 

0214 

4063 


JMS TYPE 

0215 

4405 


JMS I 5 

0216 

1057 


TAD 57 

0217 

1131 


TAD MN/ NO? 

0 220 

7640 


SZA CL A 

0221 

5243 


JMP YES/ CHECK IF Y 

0 222 

1155 


TAD TXT2/ "BLOCK LENGTH (DEC) : " 

0 223 

3012 


DCA 12 

0224 

4063 


JMS TYPE 

0225 

4405 


JMS I 5 

0226 

4074 


JMS UNFL 

0227 

3127 


DCA MINC/ TEMPORARY 

0230 

1127 


TAD MINC 

0231 

7041 


CIA 

0232 

3537 


DCA I WORDS 

0233 

1127 


TAD MINC 

0234 

1124 


TAD Ml 

0235 

7427 


7427/ MQL DVI 

0236 

0003 


0003 

0237 

7701 


7701/ CLA MQA 

0 240 

7041 


CIA 

0 241 

3127 


DCA MINC 

0 242 

5250 


JMP TYPOUT 

0243 

7200 

YES* 

CL A 

0244 

1057 


TAD 57 

0 245 

1132 


TAD MY 

0 246 

7640 


SZA CLA 

0247 

5215 


JMP FORMAT+ 13 /NOT Y OR N INPUT 

0250 

1157 

TYPOUT* 

TAD TXT5/ "TYPE OUT ? " 

0251 

3012 


DCA 12 

0252 

4063 


JMS TYPE 

0253 

4405 


JMS I 5 
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0 254 

1057 


TAD 

57 

0255 

1131 


TAD 

MN 

0256 

7650 


SNA 

CL A 

0257 

5270 

t ' 

JMP 

SB 

0 260 

1057 


TAD 

57 

0261 

1 132 


TAD 

MY 

0262 

7640 


SZA 

CL A 

0263 

5267 


JMP 

. + 4 

0 264 

1140 


TAD 

N00P 

0265 

3303 


DCA 

TAKN+ 1 

0266 

5270 


JMP 

SB 

0267 

5253 


JMP 

TYPOUT+ 3 /NOT Y OR 

0270 

1160 

SB, 

TAD 

TXT6/ "START AT BLOCK : " 

0271 

3012 


DCA 

12 

0272 

4063 


JMS 

TYPE 

0273 

4405 


JMS 

I 5 

0 274 

4074 


JMS 

UNFL 

0275 

3345 


DCA 

BLOCK 

0 276 

1127 


TAD 

MINC 

0277 

3130 


DCA 

INC 

0300 

1141 


TAD 

DATA 

0301 

3010 


DCA 

10 

0 302 

1140 

TAKN, 

TAD 

NOOP 

0 303 

3542 


DCA 

I FLOUT 

0 304 

4405 


JMS 

I 5 

0305 

1060 


TAD 

60 

0 306 

7640 


SZA 

CL A 

0 307 

5331 


JMP 

STN/ VALID, STORE NUMBER 

0310 

1057 


TAD 

57 

031 1 

1133 


TAD 

MCC 

0312 

7650 


SNA 

CL A 

0313 

5544 


JMP 

I TAPE 

0314 

1057 


TAD 

57 

0315 

1125 


TAD 

MLB 

0316 

7650 


SNA 

CL A 

0317 

5270 


JMP 

SB 

0 320 

1057 


TAD 

57 

0 321 

1134 


TAD 

MSL/ CHECK IF SLASH 

0 322 

7650 


SNA 

CL A 

0323 

4352 


JMS 

SL 

0 324 

1057 


TAD 

57 

0325 

1135 


TAD 

MDOL/ END OF INPUT FOR THIS 

0326 

7650 


SNA 

CL A 

0 327 

5341 


JMP 

ADOL 

0330 

5302 


JMP 

TAKN 

0331 

1044 

SIN, 

TAD 

44 

0332 

3410 


DCA 

I 10 

0333 

1045 


TAD 

45 

0334 

3410 


DCA 

I 10 

0335 

1046 


TAD 

46 

0 336 

3410 


DCA 

I 10 

0 337 

2130 


ISZ 

INC/ INPUT COUNTER 

0 340 

5302 


JMP 

TAKN 
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0 341 

1136 

ADOL* 

TAD DOL 

0 342 

3410 


DCA I 10 

0 343 

4550 


JMS I RWTA 

0 344 

1401 


1401/ 

0345 

0000 

BLOCK* 

0 

0 346 

1000 


1000 

0 347 

2345 


ISZ BLOCK 

0350 

7200 


CL A 

0351 

5276 


JMP TAKN-4 

0 352 

0000 

SL* 

0 

0353 

1161 


TAD TXT7/ 

0354 

3012 


DCA 12 

0355 

4063 


JMS TYPE 

0356 

1345 


TAD BLOCK 

0 357 

3045 


DCA 45 

0360 

3046 


DCA 46 

0361 

1147 


TAD Cl 3 

0 362 

3044 


DCA 44 

0363 

4407 


JMS I 7 

0 364 

7000 


FNOR 

0 365 

1 1 51 


FADD PT1 

0 366 

0000 


FEXT 

0 367 

4406 


JMS I 6 

0 370 

5752 


JMP I SL 


1 BLOCK ON UNIT 1* WRITE 


"NEXT BLOCK = 


% 
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0 062 

0004 

♦ 62 

0004 

0 063 

0000 

TYPE, 

0 

0 064 

7200 


CL A 

0 065 

1412 


TAD I 12 

0 066 

6041 


TSE 

0 067 

5066 


JMP .-1 

0070 

6046 


TLS 

0 071 

7440 


SZA 

0 072 

5064 


JMP .-6 

0073 

5463 


JMP I TYPE 

0074 

0P00 

UN EL, 

0 

0 075 

7200 


CL A 

0076 

1044 


TAD 44 

0077 

7540 


SZA SMA 

0 100 

5103 


JMP . + 3 

0 101 

7200 


CL A 

0 102 

5122 


JMP DONF+1 

0 103 

1146 


TAD M 1 3 

0 104 

7450 


SNA 

0 105 

5121 


JMP DONE 

0 106 

7500 


SMA 

0 107 

5145 


JMP ERROR 

0 110 

3044 


DCA 44 

0 111 

7100 

GO, 

CLL 

0 112 

1045 


TAD 45 

0 113 

7510 


SPA 

0 114 

7020 


CML 

0 115 

7010 


RAR 

0 116 

3045 


DCA 45 

0 117 

2044 


ISZ 44 

0 120 

51 1 1 


JMP GO 

0 121 

1045 

DON E, 

TAD 45 

0 122 

5474 


JMP I UNFL 

0 123 

7600 

Ml 28, 

-200 

0 124 

7777 

Ml, 

- 1 

0 125 

7535 

MLB, 

-243 

0 126 

7726 

M 42, 

-52 

0 127 

0000 

Minc, 

0 

0 130 

0000 

INC, 

0 

0 131 

7462 

MN, 

-316 

0 132 

7447 

MY, 

-331 

0 133 

7575 

MCC, 

-203 

0 134 

7521 

MSL, 

-257 

0 135 

7534 

MDOL, 

-244 

0 136 

0244 

DOL, 

244 

0 137 

4342 

WORDS, 

4342 

0 140 

7000 

NOOP, 

NOP 

0 141 

0777 

DATA, 

0777 

0 142 

7151 

FLOUT, 

7151 

0 143 

4766 

OUT, 

4766 

0 144 

7600 

TAPE, 

7600 
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0 145 

7408 

ERROR# 

7408 

0 146 

7765 

M 13# 

- 13 

0 147 

0013 

Cl 3# 

0013 

0 150 

4800 

RWTAPE# 

4800 

0 151 

7775 

PT1# 

7775 

0 158 

3146 


3146 

0 153 

3146 


3146 

0 154 

0400 

TXT1# 

Tl 

0 155 

0480 

TXT8# 

TP 

0 156 

0450 

TXT 4# 

T4 

0 157 

0455 

TXT 5# 

T5 

0 160 

0473 

TXT6# 

T6 

0 161 

0517 

TXT7# 

*400 

T7 

0 400 

0000 

Tl# 

0 

0 401 

0815 


815 

0 408 

0818 


818 

0 403 

0383 


383 

0 404 

0384 


384 

0405 

0304 


304 

0 406 

0840 


840 

0 407 

0306 


306 

0410 

0317 


317 

041 1 

0388 


388 

0418 

0315 


315 

0413 

0301 


301 

0414 

0384 


384 

0415 

0840 


840 

0416 

0877 


877 

0417 

0840 


840 

0480 

0000 

T8# 

0 

0 481 

0815 


815 

0 488 

0818 


818 

0 483 

0308 


308 

0 484 

0314 


314 

0485 

0317 


317 

0 486 

0303 


303 

0 487 

0313 


313 

0 430 

0840 


840 

0431 

0314 


314 

0438 

0305 


305 

0 433 

0316 


316 

0 434 

0307 


307 

0435 

0384 


384 

0 436 

0310 


310 

0437 

0840 


840 

0440 

0850 


850 

0 441 

0304 


304 

0 448 

0305 


305 

0 443 

0303 


303 

0 444 

0851 


851 

0 445 

0840 


840 

0 446 

0878 


878 




P£0E 

2 

0 447 

0240 

0 450 

0000 

0451 

0277 

0 452 

0277 

0453 

0215 

0454 

0212 

0455 

0000 

0456 

0215 

0 457 

0212 

0460 

0324 

0 461 

0331 

0 462 

0320 

0463 

0305 

0 464 

0240 

0 465 

0317 

0 466 

0325 

0467 

0324 

0470 

0240 

0471 

0277 

0 472 

0240 

0 473 

0000 

0 474 

0215 

0475 

0212 

0476 

0323 

0 477 

0324 

0 500 

0301 

0 501 

0322 

0 502 

0324 

0 503 

0240 

0 504 

0301 

0 505 

0324 

0 506 

0240 

0 507 

0302 

0 510 

0314 

0 51 1 

0317 

0 512 

0303 

0 513 

0313 

0 514 

0240 

0 51 5 

0272 

0 516 

0240 

0 517 

0000 

0 520 

0215 

0 521 

0212 

0 522 

0316 

0 523 

0305 

0 524 

0330 

0 525 

0324 

0 526 

0240 

0 527 

0302 

0 530 

0314 

0 531 

0317 

0 532 

0303 

0 533 

0313 


240 

74 * 0 

211 

211 

215 

212 

T5> 0 

215 
212 

324 
331 
320 
305 
240 
317 

325 
324 
240 
277 
240 
0 

21 5 
212 

323 

324 
301 
322 
324 
240 

301 
324 
240 

302 
314 
317 

303 

313 
240 
272 
240 
0 

215 
212 

316 
305 
330 
324 
240 

302 

314 

317 

303 
313 




P4GF P 


0 534 

0240 

240 

0 53 5 

0275 

275 

0 536 

0240 

240 

0 537 

0000 

0 
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A COL 

0341 

BLOCK 

0345 

C 13 

0147 

DATA 

0141 

DOL 

0136 

DONE 

0121 

ERROR 

0145 

FLOUT 

0142 

FORMAT 

0202 

GO 

011 1 

I NC 

0130 

M CC 

0133 

M DOL 

0135 

M INC 

0127 

M LB 

0125 

MN 

0131 

M SL 

0134 

MY 

0132 

M 1 

0124 

M 128 

0123 

M 13 

0146 

M 42 

0126 

NOOP 

0140 

0 UT 

0143 

PT1 

0151 

R WTAPF 

0150 

SE 

0270 

SL 

0352 

STN 

0331 

TAKN 

0302 

TAPE 

0144 

TXT1 

0154 

TXT2 

0155 

TXT4 

0156 

TXT5 

0157 

TXT6 

0160 

TXT7 

0161 

TYPE 

0063 

TYPOUT 

0250 

T 1 

0400 

T 2 

0420 

T 4 

0450 

T 5 

0455 

T 6 

0473 

T 7 

0517 

UNFL 

0074 

WORDS 

0137 

Y ES 

0243 
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EDATA - EDIT DATA 


PURPOSE: This is a program to edit data files created on 

DECtape by DATRIT. 

OPERATION: The program will query the user about the format of 

the data tape mounted on unit #1. After that, the teletype bell 
will ring and EDATA waits for a command from the user. This program 
uses a core buffer to store the data file being edited. 

The following commands are possible in EDATA : 

RJ READ This command causes the program to type 

"BLOCK NUMBER : The user types the block 

number (in decimal) of data tape to be read. 
READ destroys data previously in the buffer 
by reading in over it. 

RA'i READ APPEND This command is similar to READ. Data read in 

prior to RA will be retained and data in the 
new block will append the original. If there 
is more data in the new block than can be added 
to data already in the buffer, "OVERFLOW" will 
be typed and the buffer is left unchanged. 

This command causes the program to type 
"BLOCK NUMBER : ". The user types the block 
number (decimal) of tape on which data in the 
buffer will be written. The buffer is not 
affected by this command. 

This command deletes all data in the buffer. 

This command causes the program to list all 
the data in the buffer. 




WRITE 


D A 


DELETE 

LIST 
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# 


EDATA - EDIT DATA 

(continued) 

/£ SLASH 

This command causes the program to type 

"LAST DATA AT nn" where nn indicates the 

total number of data points in the buffer. 

nL^ LIST 

This command causes the program to list data 

point n. 

n,mL^ LIST 

This command causes the program to list data 

points n through m Inclusive. 

nD^ DELETE 

This command causes the program to delete 

data point n. 

n,mD^ DELETE 

This command causes the program to delete 

data points n through m Inclusive. 

nC CHANGE 

This command causes the program to change 

data point n. Additional data points 

(after the first which replaces point n) 

are added after n. After the desired 

changes are completed, this command must be 

terminated by "CTRL/FORM". 

nl^ INSERT 

This command causes the program to insert 

data point n. Similar to CHANGE - after this 

command data is typed in to be inserted starting 
at point n. Data inserted will appear before 
the data point previously at n. This command 

must be terminated with "CTRL/FORM". 

A^ APPEND 

After this command, data is accepted to be 

added after data already in the file. This 
command must be terminated by "CTRL/FORM". 
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EDATA - EDIT DATA (continued) 


CTRL/C This command returns control to the tape 

Monitor. 

The commands CHANGE, INSERT, and APPEND terminate automatically 
when the buffer becomes full and the program types "BLOCK FULL". 

An error in the format of a command causes the program to type 
"??" carriage return, line feed. 

After the completion of any command, the bell will ring and 
the program waits for a new command. 
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/Call program 


4 


EDATA 


STD BLOCKS ? _Y 
R 


BLOCK NUMBER : 

/ J 

LAST DATA AT + 


10 

19 


-LSL_a- 

+ 0» 8999999 E+ 01 


/Yes 

/Read data block 
/# 10 

/List last line # 


/List line #19 


RA 


BLOCK NUMBER : _li_ 
/ 


LAST- DATA AT + 38 
38L a 

+ 0. Te399999 E+ 02 


38Ca 

20 (CTRL/FORM) 



LAST DATA AT + 39 


3 7L O. 

+ 0. 1800000E+ 02 


37D J 
3 6> 33L 

+ 0. 1700000E+ 02 
+ 0. 2000000E+ 02 
+ 0.21OOOOOE+ 02 



BLOCK FULL 
38, 42L jl . 

+ 0. 2100000E+02 
+ 0. 2199999E+02 
+ 0. 2300000E+ 02 
+ 0.2400000E+ 02 
+ 0. 2500000E+ 02 


/Read and append 
/Read data block #11 
/List last line # 

/List line #38 

/Change line #38 
/and add a new line 
/List last line # 

/List line #37 

/Delete line #37 

/List lines #36 through #38 


/Append 

/Block filled, terminates automatically 
/List lines #38 through #42 
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/List last line # 



LAST DATA AT + 42 


4 3L?? 
4 II y 


BLOCK FULL 

4J-P.g. 



BLOCK FULL 


/L?? 



LAST DATA AT + 42 


4 2L j 

+ 0. 2500000E+02 


_L*-3L-g_ 

+ 0. 1 000000E+ 01 
+ 0.2000000E+ 01 
+ 0« 3000000E+01 

4> 40D^ 

000000E+ 01 
+ 0. 2000000E+ 01 
+ 0.3000000E+ 01 
+ 0. 6349999 E+03 
+ 0. 2500000E+ 02 



BLOCK NUMBER 




BLOCK NUMBER 



1 000000E+ 01 
+ 0. 2000000E+ 01 
+ 0.3000000E+ 01 
+ 0.6349999 E+ 03 
+ 0. 2500000E+ 02 


+ 0. 1 OOOOOOE+ 01 
+ 0. 2000000E+ 01 
+ 0. 3000000E+ 01 
+ 0. 6349999 E+03 
+ 0. 2500000E+ 02 




BLOCK NUMBER 



/Error, line #43 does not exist 
/Insert line #41 

/Blook already full 
/Delete line #41 

/Insert a new line #41 

/Block filled, terminates automatically 
/Error, illegal command 
/List last line # 


/List line #42 


/List lines #1 through #3 


/Delete lines #4 through #40 
/List all data 


/Write on data tape 
/At block # 

/Read append 
/Read data block #18 
/List all data 


/Delete line #1 
/Write on data tape 

/At block #19 
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/Change line #2 

/and add two new lines 

/List lines #1 through #5 


2C ^ 

g 3*4 CTRL/FORM) 

i &5L& . 

+ 0. 2<T00000E+01 
+ o. 2000000E+ 01 
+ o. 3000000E+01 
+ 0. 4000000E+01 
+ 0.6349999 E+ 03 

5> 1 2D?? 



LAST DATA AT + 11 


5> 1 1D^ 



Bl^OCK NUMBER 




BLOCK NUMBER 





LAST DATA AT + 


T+ 


5 2 4 6 8 9 


11 11 13 14 (CTRL/FORM) 

W 


BLOCK NUMBER : 32js 


16^16.5 17 18 (CTRL/FORM) 

/ 


LAST DATA AT + 15 
W g- 

BLOCK NUMBER : 33 
+C 


/Delete lines #5 through #12 
/List last line.# 

/Delete lines #5 through #11 

/Write on data tape 

/At block #30 
/Write on data tape 

/At block #31 

/Delete all data in buffer 
/List last line # 

/Append 

/Write on data tape 
/At block #32 
/Append 

/List last line # 

/Write on data tape 
/At block #33 

/Return control to tape Monitor 
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/EDATA, EDIT DATA 

/THE FOLLOWING COMMANDS ARE POSSIBLE. 
/BE FOLLOWED BY A CARRIAGE RETURN. 


EACH MUST 


/MR.. 

/"RA" 

/"W" 

/”D*’ 

/"L" 

/../.. 

/ " 3L M 
/’’3, 5L" 

/••3D*’ 

/"3. 5D" 
/"3C" 

/"3I ’’ 

/ 

/"A" 

/MOUNT DATA 
/CONTROL TO 
*0200 


READ A DATA BLOCK INTO THE CORE BUFFER 

READ A DATA BLOCK AND APPEND BUFFER 

WRITE THE BUFFER ON DATA TAPE 

DELETE ALL DATA IN THE BUFFER 

LIST THE CONTENTS OF THE BUFFER 

TYPE # OF LAST LINE IN BUFFER 

LIST LINE 3 OF BUFFER 

LI ST LINES 3 THRU 5 

DELETE LINE 3 

DELETE LINES 3 THRU 5 

CHANGE LINE 3* TERMINATE CHANGE WITH CTRL/FORM 
INSERT A NEW LINE 3 BEFORE PRESENT LINE 3 
TERMINATE INSERT WITH CTRL/FORM 

APPEND BUFFER.. TERMINATE APPEND WITH CTRL/FORM 

#1. "CTRL/C" WILL RETURN 


0 200 

6046 

TLS 

0 201 

7200 

CL A 

0 202 

1063 

TAD : 

0 203 

3464 

DC A ] 

0 204 

1110 

TAD ] 

0205 

3473 

DCA ] 

0206 

1154 

TAD • 

0207 

4532 

JMS i 

0210 

4405 

JMS ] 

0211 

1057 

TAD 

0212 

1130 

TAD r 

0213 

7650 

SNA 1 

0214 

5232 

jmp : 

0215 

1057 

TAD 

0216 

1121 

TAD r 

0217 

7640 

SZA i 

0220 

5200 

JMP : 

0221 

1155 

TAD 

0 222 

4532 

JMS 

0223 

4405 

JMS 

0224 

1060 

TAD 

0225 

7650 

SNA 

0226 

5200 

JMP 

0227 

4533 

JMS 

0230 

7041 

CIA 

0231 

3464 

DCA 

0232 

1464 DIV, 

TAD 

0233 

7041 

CIA 

0234 

1131 

TAD 1 

0235 

7427 

7427 

0236 

0003 

0003 

0237 

7701 

7701 


TAPE ON UNIT 
THE MONI TOR. 


STD 
I BLL 
DOL 

I BUF1 
TXT1 /' 
I TYPEP 
I 5 
57 


STD BLOCKS ?" 


CL A 
DI V 
57 
MN 
CL A 
200 

TXT2 /’’BLOCK 
I TYPEP 
I 5 
60 
CL A 
200 

I UNFLP 


LENGTH (DEC) 


I 

I 

Ml 


BLL 

BLL 


/Ml, -1 

/LOAD MQ & DI V 
/BY 3 

/CLEAR AC & READ MQ 
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0 240 

0 241 

0 242 

0 243 

0 244 

0245 

0246 

0247 

0250 

0251 

0 252 

0 253 

0 254 

0255 

0 256 

0257 

0 260 

0 261 

0 262 

0263 

0264 

0265 

0266 

0267 

0270 

0271 

0272 

0273 

0 274 

0275 

0 276 

0277 

0 300 

0301 

0 302 

0303 

0 304 

0305 

0306 

0307 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0 320 

0321 

0322 

0 323 

0324 


1 


7041 


CIA 


3065 


DCA 

NPB /NPB* <-# PER BLOCK) 

1156 

INPUT* 

TAD 

TXT3 /*'CR* LF* BELL" 

4532 


JMS 

I TYPEP 

4405 


JMS 

I 5 

1060 


TAD 

60 

7650 


SNA 

CL A 

5310 


JMP 

INVAL /INVALID* CHECK I F L* W* R* A,/. t C 

4533 


JMS 

I UNFLP /VALID 

3070 


DCA 

LINE1 /STORE 

1070 


TAD 

LINE1 

7041 


CIA 


3071 


DCA 

LINE2 

1057 


TAD 

57 /CHECK TERMINATOR 

1127 


TAD 

MCOM 

7650 


SNA 

CL A 

4345 


JMS 

COMMA /TERM IS A COMMA 

1100 


TAD 

NUMS 

1071 


TAD 

LINE2 

7710 


SPA 

CL A 

5305 


JMP 

ERRIN /THIS LINE IS NOT IN THE BUFFER 

1057 

TERM* 

TAD 

57 

1120 


TAD 

ML 

7650 


SNA 

CL A 

5534 


JMP 

I LISTP /LISTP* LIST 

1057 


TAD 

57 

1115 


TAD 

MC 

7650 


SNA 

CL A 

5535 


JMP 

I CHAN GP /CHANGP* CHANGE 

1057 


TAD 

57 

1117 


TAD 

MI 

7650 


SNA 

CL A 

5536 


JMP 

I INSERP /INSERP* INSERT 

1057 


TAD 

57 

1116 


TAD 

MD 

7650 


SNA 

CL A 

5537 


JMP 

I DELETP 

1157 

ERRIN* 

TAD 

TXT4 /”?? CR LF" 

4532 


JMS 

I TYPEP 

5244 


JMP 

INPUT+2 

1057 

INVAL* 

TAD 

57 

1123 


TAD 

MW 

7650 


SNA 

CL A 

5540 


JMP 

I WRITEP 

1057 


TAD 

57 

1122 


TAD 

MR 

7650 


SNA 

CL A 

5541 


JMP 

I READP 

1057 


TAD 

57 

1114 


TAD 

MA 

7650 


SNA 

CL A 

5542 


JMP 

I ADDP 

1057 


TAD 

57 
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0325 1126 

0326 7650 

0327 5543 

0330 1057 

0331 1120 

0332 7650 

0333 5544 

0334 1057 

0335 1116 

0336 7650 

0337 5356 

0340 1057 

0341 1125 

0342 7650 

0343 5472 

0344 5305 

0 345 0000 COMMA* 

0346 4405 

0347 1060 

0350 7650 

0351 5305 

0352 4533 

0353 7041 

0354 3071 

0355 5745 

0 356 4546 DELETA, 

0357 1110 

0360 3473 

0361 3100 

0 362 5242 


TAD MSL 

SNA CLA 

JMP I SLASHP 

TAD 57 

TAD ML 

SNA CLA 

JMP I LISTAP 

TAD 57 

TAD MD 

SNA CLA 

JMP DEL ETA /DELETE ALL 
TAD 57 
TAD MCC 
SNA CLA 
JMP I TAPE 
JMP ERRIN 
0 

JMS I 5 
TAD 60 
SNA CLA 
JMP ERRIN 
JMS I UNFLP 
CIA 

DCA LINE2 /MINUS LINE2 

JMP I COMMA 

JMS I CARETP 

TAD DOL 

DCA I BUE1 

DCA NUMS 

JMP INPUT 
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Pauk a 


0400 

0 401 

0 402 

0403 

0 404 

0405 

0 406 

0 407 

0410 

041 1 

0412 

0413 

0414 

0415 

0416 

0417 

0420 

0421 

0 422 

0 423 

0 424 

0425 

0426 

0427 

0 430 

0431 

0 432 

0433 

0434 

0435 

0436 

0437 

0 440 

0441 

0 442 

0 443 

0444 

0445 

0 446 

0447 

0 450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0 460 

0461 

0 462 


1073 

*400 

READ# 

TAD BUF1 

3234 


DC A CORER 

4405 


JMS I 5 

1057 


TAD 57 /I 

1114 


TAD MA 

7650 


SNA CLA 

5216 


JMP SETB2 /R 

1057 


TAD 57 

1124 


TAD MCR 

7640 


SZA CLA 

5545 


JMP I ERRINP 

1110 


TAD DOL 

3474 


DCA I BUF2 

5221 


JMP .+4 

4546 

SETB2# 

JMS I CARETP 

1074 


TAD BUF2 

3234 


DCA CORER 

1160 


TAD TXT5 /" 

4532 


JMS I TYPEP 

4405 


JMS I 5 

1060 


TAD 60 

7650 


SNA CLA 

5545 


JMP I ERRINP 

4533 


JMS I UNFLP 

3233 


DCA BLOCKR 

4477 


JMS I RWTAPE 

1201 


1201 

0000 

BLOCK R* 

0000 

0000 

CORER# 

0000 

1075 


TAD DATA 

4336 


JMS DOLL 

3100 


DCA NUMS 

1076 


TAD DATA2 

4336 


JMS DOLL 

3101 


DCA NUMS2 

1065 


TAD NPB 

1131 


TAD Ml 

1100 


TAD NUMS 

1101 


TAD NUMS2 

7700 


SMA CLA / SI 

5261 


JMP .+11 

1100 


TAD NUMS 

7001 


I AC 

3067 


DCA LINE 

1100 


TAD NUMS 

1101 


TAD NUMS2 

3100 


DCA NUMS 

4357 


JMS LINECT 

5371 


JMP MOVAD+1 

1161 


TAD TXT6 /"C 

4532 


JMS I TYPEP 


S R FOLLOWED BY A? 


DATA IN FOLLOWING PRESENT DATA 


/NOT A OR CR 


/ISA FOLLOWED BY CR? 


BLOCK NUMBER : 


IF AC< 0 


0 VERFLO W 
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0 463 
0 464 
0465 
0 466 
0 467 
0 470 
0471 
0 472 
0473 
0 474 
0475 
0476 
0477 
0 500 
0 501 
0 502 
0 503 
0 504 
0505 
0 506 
0 507 
0510 
051 1 
0512 
0513 
0514 
0515 
0516 
0 517 
0 520 
0 521 
0 522 
0 523 
0 524 
0 525 
0 526 
0 527 
0 530 
0 531 
0 532 
0 533 
0 534 
0535 
0536 
0537 
0 540 
0 541 
0 542 
0 543 
0 544 
0 545 
0 546 
0 547 


5550 

4546 WRI TE* 
1160 

4532 
4405 
1060 
7650 
5545 

4533 
3277 
4477 
1401 

0000 BLOCK W* 

1400 

5550 

4546 DELETE* 

1070 
3067 
4357 
1010 
301 1 

1071 
7041 
7001 
3067 
4357 
1410 
1112 
7450 
5330 
1 110 
341 1 
1410 
341 1 
1410 
341 1 
5315 
1110 
341 1 
1075 
4336 
3100 
5550 

0000 DOLL* 
3010 
3066 
1410 
1112 
7640 
5347 
1066 
5736 
2010 


JMP 
JMS 
TAD 
JMS 
JMS 
TAD 
SNA 
JMP 
JMS 
DCA 
JMS 
1401 
0000 
1400 
JMP 
JMS 
TAD 
DCA 
JMS 
TAD 
DCA 
TAD 
CIA 
I AC 
DCA 
JMS 
TAD 
TAD 
SNA 
JMP 
TAD 
DCA 
TAD 
DCA 
TAD 
DCA 
JMP 
TAD 
DCA 
TAD 
JMS 
DCA 
JMP 
0 

DCA 
DCA 
TAD 
TAD 
SZA 
JMP 
TAD 
JMP 
I SZ 


I INPUTP 
I CARETP 

TXT5 /"BLOCK NUMBER 
I TTPEP 
I 5 
60 
CL A 

I ERRINP 
I UNFLP 
BLOCK V 
I RWTAPE 


I INPUTP 
I CARETP 
LINE1 
LINE 
LINECT 
10 
1 1 

LINE2 


/MINUS LINE 2 
/PLUS LINE 2 


LINE 
LINECT 
I 10 
MDOL 


.+8 
DOL 
I 
I 
I 
I 
I 


/END OF DATA? 


/NO* RESTORE 
/MORE DATA BACK 


1 1 
10 
1 1 
10 
1 1 

.-12 /CIO DEC) 

DOL 
I 11 
DATA 
DOLL 
NUMS 
I INPUTP 

/COUNT # DATA POINTS 

10 
NUM 
I 10 
MDOL 
CL A 
. + 3 

NUM /# OF DATA POINTS 
I DOLL 
10 
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2 


m 

i 

0 550 

2010 


I sz 

10 

0551 

1065 


TAD 

N PB 

0 552 

1066 


TAD 

NUM 

0 553 

7700 


SMA 

CL A 

0 554 

5736 


JMP 

I DOLL 

0 555 

2066 


I SZ 

MUM 

0 556 

5341 


JMP 

DOLL+3 

0 557 

0000 

LINECT, 

0 


0 560 

1067 


TAD 

LIME 

0561 

1131 


TAD 

Ml 

0 562 

7425 


7425 /MUL: 

0 563 

0003 


0003 

0 564 

7701 


7701 

/CL A 

0 565 

1075 


TAD 

DATA 

0 566 

3010 


DCA 

10 

0 567 

5757 


JMP 

I LINECT 

0 570 

4551 

MOV AD, 

JMS 

I SADDP 

0571 

1010 


TAD 

10 

0 572 

3011 


DCA 

1 1 

0573 

1076 


TAD 

DATA2 

0 574 

3010 


DCA 

10 

0575 

4552 


JMS 

I MOVEP 

0 576 

5550 


JMP 

I INPUTP 


MQL+MUY 
+ MQA 
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0 600 
0601 
0602 
0603 
0 604 
0605 
0606 
0 607 
0610 
061 1 
0612 
0613 
0614 
061 5 
0616 
0617 
0 620 
0621 
0 622 
0 623 
0624 
0625 
0 626 
0627 
0630 
0631 
0632 
0633 
0 634 
0635 
0636 
0637 
0 640 
0641 
0642 
0 643 
0 644 
0645 
0 646 
0647 
0 650 
0651 
0652 
0 653 
0 654 
0655 
0 656 
0657 
0 660 
0661 
0 662 


♦ 600 

4361 CHANGE* 
1070 
7001 
3067 
4547 
1076 
301 1 
4236 
1070 
3067 
1100 
1131 
3100 
5553 

4361 INSERT* 

1070 

3067 

4547 

1076 

301 1 

4236 

5553 

4361 ADD* 
1100 
7001 
3067 
4255 
1110 

3410 
5550 

0000 MOVE* 
1410 
1 112 
7450 
5252 
1 1 10 
341 1 
1410 
341 1 
1410 
341 1 
5237 
1110 

3411 
5636 

0000 SADD* 

1065 

1100 

7700 

5356 

4547 


JMS CARET 

TAD LINE1 /LINE TO BE CHANGED 
I AC 

DCA LINE 
JMS I LINCTP 
TAD DATA2 
DCA 11 
JMS MOVE 
TAD LINE1 
DCA LINE 
TAD NUMS 
TAD Ml 
DCA NUMS 
JMP I MOVADP 
JMS CARET 
TAD LINE1 
DCA LINE 
JMS I LINCTP 
TAD DATA2 
DCA 11 
JMS MOVE 
JMP I MOVADP 
JMS CARET 
TAD NUMS 
I AC 

DCA LINE 
JMS SADD 
TAD DOL 
DCA I 10 
JMP I INPUTP 

0 /FROM BUFFER 10 TO BUFF 11 

TAD I 10 

TAD MDOL /END OF DATA? 

SNA 

JMP .+8 /YES* DEPOSIT $ 

TAD DOL /NO* RESTORE 

DCA I 11 
TAD I 10 
DCA I 11 
TAD I 10 
DCA I 11 
JMP MOVE+1 
TAD DOL 
DCA I 11 
JMP I MOVE 
0 

TAD NPB 
TAD NUMS 
SMA CL A 
JMP ERFULL 
JMS I LINCTP 
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0 663 

4405 


JMS I 5 

/TAKE IN A NO. 

0 664 

1060 


TAD 60 


0665 

7650 


SNA CL A 


0666 

5300 


JMP .+12 

/DEC 10 

0667 

1044 


TAD 44 

/VALID STORE AFTER DATA 

0 670 

3410 


DCA I 10 


0671 

1045 


TAD 45 


0672 

3410 


DCA I 10 


0673 

1046 


TAD 46 


0674 

3410 


DCA I 10 


0675 

2100 


ISZ NUMS 


0676 

2067 


ISZ LINE 


0677 

5256 


JMP SADD+1 


0 700 

1057 


TAD 57 


0 701 

1113 


TAD MFORM 

/END OF ADDITION ? 

0 702 

7650 


SNA CLA 


0 703 

5655 


JMP I SADD 


0 704 

5263 


JMP SADD+6 


0 705 

4361 

LIST, 

JMS CARET 


0706 

1100 


TAD NUMS 


0707 

1071 


TAD LINE2 

/IS LAST DATA POINT IN BUFFER? 

0710 

7710 


SPA CLA 


071 1 

5545 


JMP I ERRINP 

0712 

1070 


TAD LINE1 

/LIST THE POINT 

0713 

3067 


DCA LINE 


0714 

4547 


JMS I LINCTP 

0 715 

1410 


TAD I 10 


0716 

3044 


DCA 44 


0717 

1410 


TAD I 10 


0 720 

3045 


DCA 45 


0 721 

1410 


TAD I 10 


0 722 

3046 


DCA 46 


0 723 

4406 


JMS I 6 

/OUT PUT NUMBER 

0 724 

1071 


TAD LINE2 

/MINUS LINE2 

0725 

1070 


TAD LINE1 


0 726 

7700 


SMA CLA 


0727 

5550 


JMP I INPUTP 

0 730 

2070 


ISZ LINE1 


0731 

5306 


JMP LIST+1 


0732 

4361 

LI STA, 

JMS CARET 

/LIST COMPLETE BUFFER 

0733 

1065 


TAD NPB 


0 734 

1131 


TAD Ml 


0735 

1100 


TAD NUMS 


0736 

7700 


SMA CLA 


0737 

5545 


JMP I ERRINP 

0 740 

1075 


TAD DATA 


0 741 

3010 


DCA 10 


0 742 

1410 


TAD I 10 


0743 

1 112 


TAD MDOL 

/END OF DATA ? 

0 744 

7450 


SNA 


0 745 

5550 


JMP I INPUTP 

0 746 

1110 


TAD DOL 

/NO, RESTORE 

0 747 

3044 


DCA 44 
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0 750 

1410 


TAD 

I 10 

0751 

3045 


DCA 

45 

0752 

1410 


TAD 

I 10 

0753 

3046 


DCA 

46 

0 754 

4406 


JMS 

I 6 /OUTPUT 

0755 

5342 


JMP 

LISTA+10 

0 756 

1162 

ERFULL* 

TAD 

TXT7 /’’BLOCK FULL ” 

0757 

4532 


JMS 

I TYPEP 

0760 

5655 


JMP 

I SADD 

0761 

0000 

CARET* 

0 


0 762 

4405 


JMS 

I 5 

0763 

1057 


TAD 

57 

0 764 

1124 


TAD 

MCR /CARRIAGE RETURN? 

0765 

7640 


SZA 

CL A 

0 766 

5545 


JMP 

I ERRINP 

0 767 

5761 


JMP 

I CARET 
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* 1000 


1 000 

0000 

TYPE, 

0 

1 001 

3012 


DCA 12 

1 002 

1412 


TAD I 12 

1 003 

6041 


TSF 

1 004 

5203 


JMP 1 

1 005 

6046 


TL S 

1 006 

7640 


SZA CLA 

1 007 

5202 


JMP TYPE+2 

1 010 

5600 


JMP I TYPE 

1 01 1 

4546 

SLASH, 

JMS I CARETP 

1 012 

1107 


TAD C3 

1 013 

3062 


DCA 62 

1 014 

1163 


TAD TXT8 /’’LAST DATA AT' 

1 01 5 

4532 


JMS I TYPEP 

1 016 

1100 


TAD MUMS 

1 01 7 

3045 


DCA 45 

1 020 

3046 


DCA 46 

1 021 

1106 


TAD Cl 3 

1 022 

3044 


DCA 44 

1 023 

4407 


JMS I 7 

1 024 

7000 


FNOR 

1 025 

1103 


FADD PT1 

1 026 

0000 


FEXT 

1 027 

4406 


JMS I 6 

1 030 

7200 


CLA 

1 031 

3062 


DCA 62 

1 032 

5550 


JMP I INPUTP 

1 033 

0000 

UMFL, 

0 

1 034 

7200 


CLA 

1 035 

1044 


TAD 44 

1 036 

7540 


SZA SMA 

1 037 

5242 


JMP . + 3 

1 040 

7200 


CLA 

1 041 

5261 


JMP DONE+1 

1 042 

1111 


TAD Ml 3 

1 043 

7450 


SNA 

1 044 

5260 


JMP DONE 

1 045 

7500 


SMA 

1 046 

5102 


JMP ERROR 

1 047 

3044 


DCA 44 

1 050 

7100 

GO, 

CLL 

1 051 

1045 


TAD 45 

1 052 

7510 


SPA 

1 053 

7020 


CML 

1 054 

7010 


RAR 

1 055 

3045 


DCA 45 

1 056 

2044 


ISZ 44 

1 057 

5250 


JMP GO 

1 060 

1045 

DONE, 

TAD 45 

1 061 

5633 


JMP I UNFL 

1 062 

0000 

Tl, 

0 
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1 063 

0215 


215 

1 064 

0212 


212 

1 065 

0323 


323 

1 066 

0324 


324 

1 067 

0304 


304 

1 070 

0240 


240 

1 071 

0302 


302 

1 072 

0314 


314 

1 073 

0317 


317 

1 074 

0303 


303 

1 075 

0313 


313 

1 076 

0323 


323 

1 077 

0240 


240 

1 100 

0277 


277 

1 101 

0240 


240 

1 102 

0000 

72* 

0 

1 103 

0215 


215 

1 104 

0212 


212 

1 105 

0302 


302 

1 106 

0314 


314 

1 107 

0317 


317 

1110 

0303 


303 

1111 

0313 


313 

1112 

0240 


240 

1113 

0314 


314 

1114 

0305 


305 

1115 

0316 


316 

1116 

0307 


307 

1117 

0324 


324 

1 120 

0310 


310 

1 121 

0240 


240 

1 122 

0250 


250 

1 123 

0304 


304 

1 124 

0305 


305 

1 125 

0303 


303 

1 126 

0251 


251 

1 127 

0240 


240 

1 130 

0272 


272 

1 131 

0240 


240 

1 132 

0000 

T3> 

0 

1 133 

0215 


215 

1 134 

0212 


212 

1 135 

0207 


207 

1 136 

0000 

T4, 

0 

1 137 

02V,'7 


277 

1 140 

0277 


277 

1 141 

0215 


215 

1 142 

0212 


212 

1 143 

0000 

T5» 

0 

1 144 

0215 


215 

1 145 

0212 


212 

1 146 

0302 


302 

1 147 

0314 


314 
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1 1 50 

0317 

1 151 

0303 

1 152 

0313 

1 153 

0240 

1 154 

0316 

1 155 

0325 

1 156 

0315 

1 157 

0302 

1 160 

0305 

1 161 

0322 

1 162 

0240 

1 163 

0272 

1 164 

0240 

1 165 

0000 

1 166 

0215 

1 167 

0212 

1 170 

0317 

1 171 

0326 

1 172 

0305 

1 173 

0322 

1 174 

0306 

1 175 

0314 

1 176 

0317 

1 177 

0327 

1 200 

0000 

1 201 

0215 

1 202 

0212 

1 203 

0302 

1 204 

0314 

1 205 

0317 

1 206 

0303 

1 207 

0313 

1210 

0240 

1 21 1 

0306 

1 212 

0325 

1 213 

0314 

1 214 

0314 

1215 

0000 

1 216 

0215 

1217 

0212 

1 220 

0314 

1 221 

0301 

1 222 

0323 

1 223 

0324 

1 224 

0240 

1 22 5 

0304 

1 226 

0301 

1 227 

0324 

1 230 

0301 

1 231 

0240 

1 232 

0301 

1 233 

0324 

1 234 

0240 


317 
303 

313 
240 

316 

325 
315 
302 
305 
322 
240 
272 
240 
0 

215 
212 

317 

326 

305 

322 

306 

314 
317 

327 

11 , 0 

215 

212 

302 
314 
317 

303 

313 
240 
306 
325 

314 
314 

T8» 0 

215 

212 

314 

301 

323 

324 
240 

304 
301 
324 
301 
240 
301 
324 
240 
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0062 

0000 

*62 

0 

0 063 

7600 

STD, 

-200 

0 064 

4342 

BLL, 

4342 

0065 

0000 

NPB, 

0 

0066 

0000 

NUM, 

0 

0 067 

0000 

LINE, 

0 

0 070 

0000 

LINE1, 

0 

0071 

0000 

LINE2, 

0 

0 072 

7600 

TAPE, 

7600 

0073 

1400 

BUF1, 

1400 

0 074 

2600 

BUE2, 

2600 

0075 

1377 

DATA, 

1377 

0076 

2577 

DATA2, 

2577 

0077 

4200 

RWTAPE, 

4200 

0 100 

0000 

NUMS, 

0 

0 101 

0000 

NUMS2, 

0 

0 102 

7402 

ERROR, 

HLT 

0 103 

7775 

PT1, 

7775 

0 104 

3146 


3146 

0 105 

3146 


3146 

0 106 

0013 

Cl 3, 

13 

0 107 

0003 

C3, 

3 

0 110 

0244 

DOL, 

244 

0 111 

7765 

Ml 3, 

- 13 

0 112 

7534 

MDOL, 

-244 

0 113 

7564 

MFORM, 

-214 

0 114 

7477 

MA, 

-301 

0 115 

7475 

MC, 

-303 

0 116 

7474 

MD, 

-304 

0 117 

7467 

MI, 

- 311 

0 120 

7464 

ML, 

-314 

0 121 

7462 

MN, 

-316 

0 122 

7456 

MR, 

-322 

0 123 

7451 

MW, 

-327 

0 124 

7563 

MCR, 

-215 

0 125 

7575 

MCC, 

-203 

0 126 

7521 

MSL, 

-257 

0 127 

7 524 

MCOM, 

-254 

0 130 

7447 

MY, 

-331 

0 131 

7777 

Ml, 

- 1 

0 132 

1000 

TYPEP, 

TYPE 

0 133 

1033 

UNFLP, 

UNFL 

0 134 

0705 

LI STP, 

LI ST 

0 135 

0600 

CHANGP, 

CHANGE 

0 136 

0616 

INSERP, 

INSERT 

0 137 

0502 

DELETP, 

DELETE 

0 140 

0464 

WRI TEP, 

WRI TE 

0 141 

0400 

READP, 

READ 

0 142 

0626 

ADDP, 

ADD 

0 143 

1011 

SLASH P, 

SLASH 

0 144 

0732 

LI STAP, 

LI STA 
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0 145 

0305 

ERRINP, 

ERRIN 

0 146 

0761 

CARETP* 

CARET 

0 147 

0557 

LINCTP* 

LINECT 

0 1 50 

0242 

INPUTP, 

INPUT 

0 151 

0655 

SADDP, 

SADD 

0 152 

0636 

MO VEP> 

MOVE 

0 153 

0570 

MOVADP, 

MOVAD 

0 154 

1062 

TXT1> 

T1 

0 155 

1102 

TXT2> 

T2 

0 156 

1132 

TXT3* 

T3 

0 157 

1136 

TXT4, 

T4 

0 160 

1143 

TXT5> 

T5 

0 161 

1165 

TXT6> 

T6 

0 162 

1200 

TXT7, 

T7 

0 163 

1215 

TXT8> 

T8 
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ADD 

0626 

A DDP 

01 42 

BLL 

0064 

BLOCKR 

0433 

BLOCKW 

0477 

BUF1 

0073 

BUF2 

0074 

CARET 

0761 

CARETP 

0146 

CHANGE 

0600 

CHANGP 

0135 

COMMA 

0345 

CORER 

0434 

C 13 

0106 

C 3 

0107 

DATA 

0075 

DATA 2 

0076 

DEL ETA 

0356 

DELETE 

0502 

DELETP 

0137 

DI V 

0232 

DOL 

01 10 

DOLL 

0536 

DONE 

1060 

ERFULL 

0756 

ERRIN 

0305 

E RRI NP 

0145 

ERROR 

0102 

GO 

1050 

I NPUT 

0242 

I NPUTP 

01 50 

I NSERP 

0136 

I NSERT 

0616 

I NVAL 

0310 

LINCTP 

0147 

L INE 

0067 

LINECT 

0557 

L INE1 

0070 

L INE2 

0071 

L I ST 

0705 

L ISTA 

0732 

LISTAP 

0144 

L I STP 

0134 

M A 

0114 

M C 

01 1 5 

M CC 

0125 

M COM 

0127 

M CR 

0124 

M D 

01 16 

M DOL 

0112 

M FORM 

0113 

M I 

0117 
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ML 

0120 

MM 

0121 

MOVAD 

0570 

MOVADP 

0153 

MOVE 

0636 

MOVEP 

0152 

M R 

0122 

M SL 

0126 

M W 

0123 

MY 

0130 

M 1 

0131 

M 13 

011 1 

N PB 

0065 

N UM 

0066 

N UMS 

0100 

NUMS2 

0101 

PT1 

0103 

READ 

0400 

READP 

0141 

R WTAPE 

0077 

SADD 

0655 

SADDP 

01 51 

SETB2 

0416 

SLASH 

101 1 

SLASHP 

0143 

STD 

0063 

TAPE 

0072 

T ERM 

0265 

TXT1 

0154 

TXT2 

01 55 

TXT3 

0156 

TXT4 

0157 

TXT5 

0160 

TXT6 

0161 

TXT7 

0162 

TXT8 

0163 

TYPE 

1000 

TYPEP 

0132 

T 1 

1062 

T 2 

1102 

T 3 

1132 

T4 

1136 

T5 

1143 

T 6 

1165 

T 7 

1200 

T8 

1215 

UMFL 

1033 

UNFLP 

0133 

WRI TE 

0464 

WRI TEP 

0140 





SDT - STANDARD DEVIATION 


PURPOSE: This Is a program to calculate Mean and Standard 

Deviation from data files stored on DECtape data tape. 

The output consists of: 


1. Sample Size N. 

2. Sample Mean. 

3. Sample Variance. 

4. Sample Standard Deviation. 

5. Standard Error of the Mean. 


OPERATION: When SDT is called, it will type "READ LINES : ". 

The user may input specific lines of data blocks and terminate this 
input with "CTRL/FORM" or he may type "A" for all if complete data 
files are to be used. The program will then ask "BLOCK NUMBERS : " 
and the user should input block numbers terminated by "CTRL/FORM". 
After the input of block numbers, the program will proceed through 
calculation and output, and return to "READ LINES : " unless this 
request has previously been answered by "A" in which case the 
program will start at "BLOCK NUMBERS : ". 


DESCRIPTION: SDT will accommodate data tapes with standard 
length (i29j q) or shorter block length since it reads standard 
length blocks and takes the "$" as the end of a data file. 


SDT is a two-pass program. On the first pass, data is summed 
and counted. The Mean is calculated before pass 2. During pass 2 
the Sum of Squared Deviations from the Mean is computed. This is 
the most accurate method of computation for large numbers of large 
data. The program reads data tape in order (from the smallest 
block numbers to the largest during pass 1, and from the largest to 
the smallest during pass 2) so as to minimize tape spinning. 
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SDT - STANDARD DEVIATION (continued) 


Calculations used in this program are as follows : 

N * the number of data points operated on. 

MEAN - - x 

_ 2 


SAMPLE VARIANCE 

SAMPLE STANDARD DEVIATION 

STANDARD ERROR of MEAN 


I ( x - x ) 

(N - 1) 


/l ( x - x ) 2 

’ Y "Tn'- T)- ■ 

/r ( x - 77 

(n - 1) 
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S DT /Call program 

READ LINES : 1 3, 6 (CTRL/FORM) /Read lines 1,3,4,5,6 

BLOCK NUMBERS : 20 10, 13 OP IB (CTRL/FORM) /of these block #'s 

N : 32 

MEAN : +0. 2412500E+02 SAMP. VAR. : + 0. 1244352E+ 05 

SEM : +0. 2003506E+02 SAMP. DEV. S + 0. 1 1 15505E+03 


READ LINES : 1, A (CTRL/FORM) /Read lines #1 through #4 

BLOCK NUMBERS : PD 3P in. n 1A (CTRL/FORM) /of these block #'s 


N : 28 

MEAN : +0. 251 2499E+02 

SEM : +0. 2300356E+02 


SAMP. VAR. +0. 1428743E+05 
SAMP. DEV. : +0. 1 195300E+03 


READ LINES : A 

BLOCK NUMBERS : 10,13 (CTRL/FORM) 


/Read all of 
/these block #'s 


N : 48 

MEAN : +0. 67708 32E+01 

SEM : +0. 7006677E+00 


SAMP. VAR. : +0. 230739 7E+02 

SAMP. DEV. : +0. 4803537E+01 
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BLOCK NUMBERS : 30> 32 U 3 (CTRL/FORM) 


/Read all of these block #’s 


N : 

1534 



MEAN : 

+ 0. 331 68 32E+ 569 

SAMP. VAR. ! 

+ 0. 7187141 E+ 446 

SB4 : 

+ 0. 21 65244E+ 222 

SAMP. DEV. : 

+ 0.847769 3E+223 


BLOCK NUMBERS : 1 5> 20 30* 32 (CTRL/FORM) 


/Read all of these 


block 


N : 127 

MEAN : +0. 19 7 59 S4E+02 SAMP. VAR. : + 0.9 250204E+ 04 

SEM : +0.8568212E+01 SAMP. DEV. : + 0* 9 617798 E+02 


BLOCK NUMBERS : +£ 


/Return control to tape Monitor 
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/SDT, MEAN AND SAMPLE DEVIATION 
/MOUNT DATA TAPE ON UNIT #1 
/TERMINATE LINE OR BLOCK #’S INPUT 
/WITH CTRL-FORM. TO READ COMPLETE 
/BLOCKS RESPOND TO "READ LINES : " WITH "A" 
*200 


0 200 

6046 

START, 

TLS 

0201 

4403 


JMS I MESS /READ LINES : 

0202 

4543 


4543 

0203 

4322 


4322 

0 204 

0501 


0501 

0 205 

0440 


0440 

0 206 

141 1 


141 1 

0207 

1605 


1605 

0210 

2340 


2340 

021 1 

7240 


7240 

0212 

0000 


0000 

0213 

1073 


TAD LTAB 

0214 

4553 


JMS I LOADP 

0215 

1065 


TAD SETSW 

0216 

3063 


DC A SW /COMPLETE BLOCK SWITCH 

0217 

1074 


TAD MUM 

0220 

7041 


CIA 

0 221 

3075 


DC A NL /MINUS # OF LINES 

0222 

4403 

BLOAD, 

JMS I MESS /BLOCK NUMBERS : 

0 223 

4543 


4543 

0224 

4302 


4302 

0225 

1417 


1417 

0 226 

0313 


0313 

0227 

4016 


4016 

0230 

2515 


2515 

0 231 

0205 


0205 

0232 

2223 


2223 

0 233 

4072 


4072 

0234 

4000 


4000 

0235 

1076 


TAD BTAB 

0236 

4553 


JMS I LOADP 

0 237 

1074 


TAD NUM 

0240 

7041 


CIA 

0 241 

3077 


DCA NB /MINUS # OF BLOCKS 

0242 

4407 


JMS I 7 

0243 

5121 


FGET ZERO /CLEAR 

0 244 

6135 


FPUT FN 

0 24 5 

6127 


FPUT SUMX 

0 246 

6132 


FPUT SUMX2 

0 247 

0000 


FEXT 

0250 

3064 


DCA SWID /CLEAR, INCREASING ORDER 

0251 

4551 


JMS I ORDERP /ORDER BLOCK 

0252 

4 544 


JMS I RTP /READ TAPE 

0 253 

4545 


JMS I RBP /READ ONE LINE OF BUFFER 

0254 

4546 


JMS I SUMP 

0255 

5253 


JMP .-2 
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0 256 
0257 
0 260 
0261 
0 262 
0 263 
0 264 
0265 
0 266 
0267 
0270 
0271 
0272 
0273 
0274 


2110 

I SZ 

CNTR 

5252 

JMP 

.-5 

4407 

JMS 

I 7 /I 

5127 

FGET 

SUMX 

4135 

FDI V 

FN 

6124 

FPUT 

' MEAN 

0000 

FEXT 

2064 

I SZ 

SWI D 

4551 

JMS 

I ORDERP 

4544 

JMS 

I RTP 

4U45 

JMS 

I RBP 

4547 

JMS 

I SUMSQP 

5270 

JMP 

.-2 

2110 

I SZ 

CNTR 

5267 

JMP 

.-5 


/CALCULATE MEAN 


/REVERSE BLOCK #'S 
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0 P75 

4403 

JMS I MESS /N : 

0P76 

4543 

4543 


0 P77 

4343 

4343 


0300 

1640 

1640 


0301 

4040 

4040 


0 30P 

407P 

407P 


0 303 

4040 

4040 


0 304 

0000 

0000 


0305 

4407 

JMS 1 

: 7 

0306 

5135 

FGET 

FN 

0 307 

0000 

FEXT 


0310 

4550 

JMS I 

: 0UT4P 

031 1 

4403 

JMS I 

MESS / MEAN : 

0 31 P 

4543 

4543 


0313 

4315 

4315 


0314 

0501 

0501 


0315 

1640 

1640 


0316 

7P40 

7P40 


0307 

4000 

4000 


0 3P0 

4407 

JMS I 

7 

03P1 

51P4 

FGET 

MEAN 

03PP 

0000 

FEXT 

/MEAN 

0323 

4406 

JMS I 

6 

0 3P4 

4403 

JMS I 

MESS / SAMP. VAR. 

0 3P5 

4040 

4040 


0 3P6 

4040 

4040 


0 3P7 

4040 

4040 


0330 

4040 

4040 


0 331 

P301 

2301 


033? 

1520 

1 520 


0333 

5640 

5640 


0 334 

P601 

2601 


0335 

2256 

2256 


0336 

4072 

4072 


0 337 

4040 

4040 


0340 

0000 

0000 


0341 

4407 

JMS I 

7 

0 34P 

5135 

FGET 

FN 

03*3 

2113 

FSUB 

ONE 

0344 

6135 

FPUT 

FN /N- 1 

0 345 

513? 

FGET 

SUMX2 

0346 

4135 

FDI V 

FN 

0347 

6140 

FPUT 

FTEMP 

0350 

0000 

FEXT 

/SUM X2CN-1) 

0351 

4406 

JMS I 

6 

0352 

4403 

JMS I 

MESS / SEM : 

0 353 

4543 

4543 


0354 

43P3 

4323 


0355 

0515 

051 5 


0 356 

4040 

4040 


0357 

7P40 

7240 


0360 

4000 

4000 
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0361 

4407 

JMS I 7 

0362 

5132 

FGET SUMX2 

0 363 

0002 

SQR00T 

0 364 

4135 

FDI V FN 

0365 

0000 

FEXT /SQR00T( SUMX2)/(N-1) 

0366 

4406 

JMS I 6 

0367 

4403 

JMS I MESS / SAMP. DEV. : 

0370 

4040 

4040 

0371 

4040 

4040 

0372 

4040 

4040 

0373 

4040 

4040 

0 374 

2301 

2301 

0375 

1 520 

1520 

0 376 

5640 

5640 

0377 

0405 

0405 

0400 

2656 

2656 

0401 

4072 

4072 

0402 

4040 

4040 

0^03 

0000 

0000 

0404 

4407 

JMS I 7 

0405 

5140 

FGET FTEMP 

0406 

0002 

SQRO0T 

0407 

0000 

FEXT /SQROOTC SUMX2/CN- 1) ) 

0410 

4406 

JMS I 6 

041 1 

4403 

JMS I MESS /%###*# 

0412 

4543 

4543 

0413 

4343 

4343 

0414 

4343 

4343 

0405 

4300 

4300 

0416 

1063 

TAD SW 

0417 

7650 

SNA CL A 

0420 

5543 

JMP I STARTP 

0421 

5552 

JMP I BLOADP /FOR COMPLETE BLOCKS 
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0 422 

0000 

LOAD* 

0 


/LOAD TABLE STARTING AT I 10 

0423 

3010 


DCA 

10 


0 424 

3074 


DCA 

NUM 


0425 

3065 


DCA 

SETSW 


0 426 

4405 


JMS 

I 5 


0427 

1060 


TAD 

60 


0430 

7650 


SNA 

CL A 


0431 

5263 


JMP 

TERM 

/INVALID* CHECK TERMINATOR 

0432 

4404 


JMS 

I UNFL 


0433 

3100 


DCA 

TEMPI 


0 434 

1100 


TAD 

TEMPI 


0435 

3410 


DCA 

I 10 

/DEPOSIT IN TABLE 

0436 

2074 


ISZ 

NUM 

/COUNT #'S IN TABLE 

0437 

1057 


TAD 

57 


0440 

1102 


TAD 

MCOM 


0 441 

7640 


SZA 

CL A 


0 442 

5226 


JMP 

L0AD+4 

/NOT A COMMA 

0443 

4405 


JMS 

I 5 

/COMMA* SET TABLE 

0444 

1060 


TAD 

60 


0445 

7650 


SNA 

CL A 


0446 

5243 


JMP 

• - 3 

/INVALID TRY AGAIN 

0447 

4404 


JMS 

I UNFL 


0 450 

7041 


CIA 



0451 

3101 


DCA 

TEMP2 

/MINUS 2ND # 

0452 

1100 


TAD 

TEMPI 


0453 

1101 


TAD 

TEMP2 


0454 

7700 


SMA 

CL A 


0455 

5226 


JMP 

LOAD+4 

/SET* GET NEXT # 

0456 

2100 


I SZ 

TEMPI 


0457 

1100 


TAD 

TEMPI 


0460 

3410 


DCA 

I 10 


0 461 

2074 


I SZ 

NUM 


0462 

5252 


JMP 

.-10 


0463 

1057 

TERM* 

TAD 

57 


0 464 

1066 


TAD 

MCC 


0465 

7650 


SNA 

CL A 


0466 

5467 


JMP 

I TAPE 


0467 

1057 


TAD 

57 


0470 

1103 


TAD 

MFORM 


0471 

7650 


SNA 

CL A 


0472 

5622 


JMP 

I LOAD 

/END OF TABLE 

0473 

1057 


TAD 

57 


0474 

1070 


TAD 

MA 


0475 

7640 


SZA 

CL A 


0476 

5226 


JMP 

LOAD+4 

/NOT END OF TABLE 

0477 

2065 


ISZ 

SETSW 


0 500 

5622 


JMP 

I LOAD 


0 501 

0000 

RT* 

0 



0 502 

1410 


TAD 

I 10 


0 503 

3310 


DCA 

BLOCK 


0 504 

1106 


TAD 

DATA 


0 505 

3012 


DCA 

12 

/SET INDEX FOR READING BUFFER 
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4 


PAPE 


0 506 
0507 
0510 
051 1 
0 512 
0513 
0 514 
0 515 
0516 
0517 
0 520 
0 521 
0522 
0523 
0 524 
0525 
0526 
0 527 
0 530 
0531 
0532 
0 533 
0534 
0535 
0536 
0 537 
0 5^0 
0541 
0 542 
0 543 
0 544 
0545 

0600 
0601 
0602 
0603 
0604 
0 605 
0606 
0607 
0610 
061 1 
0612 
0613 
0614 
0615 
0616 
0617 
0620 
0621 
0622 
0 623 


4402 


JMS I RWTAP! 

1201 


1201 

0000 

BLOCK, 

0 

1000 


1000 

1063 


TAD SW 

7640 


SZA CLA 

5701 


JMP I RT 

1073 


TAD LTAB 

3013 


DCA 13 

1075 


TAD NL 

3345 


DCA CNT 

1413 

SET, 

TAD I 13 

1107 


TAD Ml 

7425 


7425 

0003 


0003 

7701 


7701 

1106 


TAD DATA 

3014 


DCA 14 

1414 


TAD I 14 

3412 


DCA I 12 

1414 


TAD I 14 

3412 


DCA I 12 

1414 


TAD I 14 

3412 


DCA I 12 

2345 


ISZ CNT 

5321 


JMP SET 

1104 


TAD POL 

3412 


DCA I 12 

1 106 


TAD DATA 

3012 


DCA 12 

5701 


JMP I RT 

0000 

CNT, 

* 600 

0 

0000 

SUM, 

0 

4407 


JM S I 7 

1127 


FADD SUMX 

6127 


FPUT SUMX 

5113 


E6ET ONE 

1135 


FADD FN 

6135 


FPUT FN 

0000 


FEXT 

5600 


JMP I SUM 

0000 

SUM SO, 

0 

4407 


JMS I 7 

2124 


FSUB MEAN 

0001 


SQUARE 

1132 


FADD SUMX2 

6132 


FPUT SUMX2 

0000 


FEXT 

561 1 


JMP I SUMSQ 

0000 

RB, 

0 

1221 


TAD RB 

1240 


TAD C2 


/READ DATA INTO 1000 


/DO NOT SELECT PARTIAL BLOCKS 

/LINE TABLE 
/MINUS # OF LINES 

/LINE NUMBER 

/MUY 

/CLA+MQA 
/3CLINE- 1 ) + DA TA 


/SET INDEX 
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0624 

0625 

0626 

0627 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0640 

0641 


3 


3241 


DCA 

1412 


TAD 

1105 


TAD 

7450 


SNA 

5641 


JMP 

1104 


TAD 

3044 


DCA 

1412 


TAD 

3045 


DCA 

1412 


TAD 

3046 


DCA 

5621 


JMP 

0002 

C2, 

2 

0000 

BEND, 

0 


BEND 
I 12 
MDOL 

I BEND /END OE BLOCK 
DOL /RESTORE 

44 

I 12 

45 

I 12 

46 

I RB 
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PAGE 


0642 
0643 
0644 
06*5 
0646 
0647 
0650 
0651 
0652 
0653 
0654 
0655 
0 656 
0657 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0720 
0721 
0722 
0723 
0724 
0725 


0000 

ORDER* 

0 


1077 


TAD 

NB 

3110 


DCA 

CN TR 

1076 


TAD 

BTAB 

3010 


DCA 

10 

311 1 


DCA 

NINV 

21 10 


ISZ 

CNTR 

7410 


SKP 


5273 


JMP 

TEST+6 

1410 


TAD 

I 10 

3100 


DCA 

TEMPI 

1410 


TAD 

I 10 

3101 


DCA 

TEMP 2 

1064 


TAD 

SWI D 

7640 


SZA 

CL A 

5303 


JMP 

DEC 

1100 


TAD 

TEMPI 

7041 


CIA 


1101 


TAD 

TFMP2 

7710 

TEST* 

SPA 

CL A 

5307 


JMP 

INVERT 

1010 


TAD 

10 

1107 


TAD 

M 1 

3010 


DCA 

10 

5250 


JMP 

0RDER+6 

mi 


TAD 

NINV 

7640 


SZA 

CL A 

5243 


JMP 

ORDER+ 1 

1077 


TAD 

NB 

3110 


DCA 

CNTR 

1076 


TAD 

BTAB 

3010 


DCA 

10 

5642 


JMP 

I ORDER 

1101 

DEC* 

TAD 

TEMP2 

7041 


CIA 


1100 


TAD 

TEMPI 

5265 


JMP 

TEST 

1010 

INVERT* 

TAD 

10 

1112 


TAD 

M2 

3010 


DCA 

10 

1101 


TAD 

TEMP2 

3410 


DCA 

I 10 

1100 


TAD 

TEMPI 

3410 


DCA 

I 10 

211 1 


I SZ 

NINV 

5267 


JMP 

TEST+2 

0000 

0 UTT* 

0 


4407 


JMS 

I 7 

1116 


EADD PT1 

0000 


FEXT 

1 341 


TAD 

C4 

3062 


DCA 

62 


/# OF INVERSIONS 


/INCREASE/DECREASE SWITCH 


/SET INDEX BACK 1 


/ORDER ACHIEVED 


/SET INDICES 


/OUTPUT MAX OE 4 DI GI TS* NO SIGN 
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07P6 

3737 


DC A 

I EP 1 

07P7 

3740 


DC A 

I FP2 

0730 

4406 


JMS 

I 6 

0731 

1 34P 


TAD 

C253 

0 732 

3737 


DC A 

I FP1 

0733 

1P40 


TAD 

C2 

0 734 

3W40 


DCA 

I FP2 

0 735 

3062 


DCA 

62 

0736 

5720 


JMP 

I 0UT4 

0737 

7327 

EP1» 

7327 


0740 

7330 

EPP, 

7330 


0741 

0004 

C4> 

4 


0 74P 

0253 

C253, 

253 



/RESTORE FLOATING POINT 
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*62 


0 062 

0000 


0 

0 063 

0000 

sw. 

0 

0 064 

0000 

SWI D, 

0 

0065 

0000 

SETSW, 

0 

0066 

7575 

MCC, 

-203 

0 067 

7600 

TAPE, 

7600 

0070 

7477 

MA, 

-301 

0071 

7447 

MY, 

-331 

0072 

7462 

MN, 

-316 

0073 

1177 

L TAB, 

1177 

0074 

0000 

NUM, 

0 

0075 

0000 

NL, 

0 

0076 

1377 

BTAB, 

1377 

0077 

0000 

NB, 

0 

0 100 

0000 

TEMPI, 

0 

0 101 

0000 

TEMP2, 

0 

0 102 

7524 

M COM, 

-254 

0 103 

7564 

MFORM, 

-214 

0 104 

0244 

DOL, 

244 

0 105 

7534 

MDOL, 

-244 

0 106 

0777 

DATA, 

0777 

0 107 

7777 

Ml, 

- 1 

0 110 

0000 

CNTR, 

0 

0 111 

0000 

NINV, 

0 

0 112 

7776 

M2, 

-2 

0 113 

0001 



0 114 

2000 



0 115 

0000 

ONE, 

l ; 2000; o 

0 116 

7775 



0 117 

3146 



0 120 

3146 

PT1, 

7775; 3146; 3146 

0 121 

0000 



0 122 

0000 



0 123 

0000 

ZERO, 

o; o; o 

0 124 

0000 



0 125 

0000 



0 126 

0000 

MEAN, 

O 

w* 

o 

O 

0 127 

0000 



0 130 

0000 



0 131 

0000 

SUMX, 

O 

••s 

o 

o 

0 132 

0000 



0 133 

0000 



0 134 

0000 

SUMX2, 

o; o; o 

0 135 

0000 



0 136 

0000 



0 137 

0000 

FN, 

o; o; o 

0 140 

0000 



0 141 

0000 



0 142 

0000 

FTEMP, 

o; o; o 

0 143 

0200 

STARTP, 

START 

0 144 

0501 

RTP, 

RT 
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0 145 

0621 

RBP, 

RB 

0 146 

0600 

SUMP, 

SUM 

0 147 

061 1 

SUMSQP, 

SUMSQ 

0150 

0720 

0UT4P, 

0UT4 

0 151 

0642 

ORDERP, 

ORDER 

0 152 

0222 

BLOADP, 

BLOAD 

0 153 

0422 

LOADP, 

*7341 

LOAD 

7 341 

0000 


0 

7 342 

0000 

MESS= 3 
RWTAPE= 2 
UNFL= 4 
SQUARE= 1 
SQROO T= 2 

0 







PAGE 6 


BEND 

0641 

BLOAD 

0222 

BLOADP 

0152 

BLOCK 

0510 

B TAB 

0076 

C NT 

0545 

CNTR 

0110 

C 2 

0640 

C 253 

0742 

C A 

0741 

DATA 

0106 

DEC 

0703 

DOL 

0104 

EN 

0135 

F PI 

0737 

FP2 

0740 

FTEMP 

0140 

I NVERT 

0707 

LOAD 

0422 

LOADP 

0153 

L TAB 

0073 

M A 

0070 

M CC 

0066 

M COM 

0102 

M DOL 

0105 

M EAN 

0124 

M ESS 

0003 

M FORM 

0103 

MN 

0072 

MY 

0071 

M 1 

0107 

M 2 

0112 

N B 

0077 

N INV 

01 1 1 

NL 

0075 

N UM 

0074 

ONE 

0113 

0 RDER 

0642 

0 RDERP 

0151 

0 UT4 

0720 

0 UT4P 

01 50 

PT1 

0116 

RB 

0621 

RBP 

0145 

RT 

0501 

R TP 

0144 

R WTAPE 

0002 

SET 

0521 

SETSW 

0065 

SQROOT 

0002 

S QUARE 

0001 

START 

0200 
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S TARTP 

0143 

SUM 

0600 

SUMP 

0146 

SUMSQ 

061 1 

SUMSQP 

0147 

SUMX 

0127 

SUMX2 

0132 

SW 

0063 

S WID 

0064 

TAPE 

0067 

TEMPI 

0100 

TEMP2 

0101 

TERM 

0463 

TEST 

0665 

UNFL 

0004 

Z ERO 

0121 
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FORT - F OR T 

ANALYSIS OF VARIANCE 

PURPOSE: This program calculates an analysis of variance table 

similar to DECUS NO. 5/8-9 using data files stored on DECtape data 
tape. The output is : 

A. For each sample 

1. Sample size 

2. Sample mean 

3. Sample variance 

4. Sample standard deviation 

B. Grand Mean 

C. Analysis of Variance Table 

1. Total sum of squares of deviations from the grand mean 

2. Total degrees of freedom 

3. Total variance 

4. The pooled sum of squares of deviations of sample 

values from sample means 

5. Degrees of freedom within groups 

6. Variance within groups 

7. Weighted sum of squares of sample means about the 

grand mean 

8. Degrees of freedom between samples 

9. Variance between samples 

10. F, the ratio of the variance between samples to the 

variance within samples if there are more than two 
groups of inputs 

11. T, the square root of F in case there are only two 

groups input 
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FORT 


F OR T (continued) 


OPERATION: When called FORT will type "READ LINES : The 

user will answer by typing line numbers of data to be operated on 
terminated by "CTRL/FORM". The user may reply to "READ LINES : " 
by typing "A" indicating all. In this case FORT will read complete 
data blocks instead of selected lines. Once the Instruction "A" has 
been given the program will only demand "BLOCK NUMBERS : " unless 
the program is restarted. 

After "READ LINES : " FORT will type "BLOCK NUMBERS : ". The 
user then types the block numbers of blocks on data tape containing 
the desired data terminated by "CTRL/FORM" with the exception that 
the last group of block numbers is terminated by "$". After completion 
the program will restart at "READ LINES : " unless this request has 
been answered by "A" in which case the program will restart at 
"BLOCK NUMBERS : ". 

DESCRIPTION: FORT will accommodate data tapes with standard 

(129}o) or shorter block length. After each set of line and block 
numbers FORT performs an ordered, two pass calculation of Sample 
Mean, Variance and Sample Standard Deviation similar to that done by 
SDT. A cumulative sum and count of data points is kept so that the 
Grand Mean is calculated Immediately after the last sample input. A 
third pass of the data tape is done in which all data blocks are read 
in order of Increasing block numbers and the Grand Mean is subtracted 
from each data point in order to calculate the total sum of squares 
of deviations from the Grand Mean. 
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FORT « F OR T (continued) 


Calculations performed by this program are as follows: 
A. For each sample 

1. Sample size * 

2. Sample mean - 

3. Sample variance 


N or Nsample 
x 


E X 
N 


E(x - x) 2 

N-l 


4. Sample standard deviation 
B. Grand Mean * 


fc(x - x) : 
V N-l 


<^)Total 


C. Analysis of Variance Table 

1. Total sum of squares » E(x - x G ) 2 Total 


2. Total degrees of freedom 

3. Total variance ■ 


NTotal - 1 


E(x - xn) 2 

NTotal-1 


4. Within samples sum of squares • E{E(x-x) 2 } 

■ Sum of Sum of squares of individual samples 

5. Within samples degrees of freedom ■ E(Nsample -1) 

- NTotal - # of samples 

E{E(x - ;> 2 } 

E(Nsample-1) 


6. Within samples variance 


7. Between samples sum of squares * Total sum of squares 

- within samples sum of squares 

8. Between samples degree# of freedom ■ Total degrees 

of freedom - Within samples degrees of freedom 

9. Between samples variance • Between samples sum of 

squares/Between samples degrees of freedom 
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FORT « F OR T (continued) 


10. F ratio - Between samples variance/Within sample 

variance 

11. T ratio - + ^F ratio 


* 


i 
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FORT 




READ LIMES : 2, 10 1 (CTRL/FORM) 

BLOCK NUMBERS : 40, 42 ^ (CTRL/FORM) 

SIZE MEAN VARIANCE 

40 +0. 675499 7E+ 01 + 0. 1 1 509 69 E+ 02 

BLOCK NUMBERS : 60 68, 64 43 (CTRL/FORM) 

SIZE MEAN VARIANCE 

50 +0. 6679993E+01 +0.9989767E+01 

BLOCK NUMBERS : 61 43 a 
SIZE MEAN ' VARIANCE 

20 +0. 6669998 E+01 + 0. 1 062640E+02 


/Read lines #2 through #10 and #14 


/of these block #'s (first group) 
SAMP. DEV. 

+ 0. 3392593E+ 01 

/And these block #'s (second group) 


SAMP. DEV. 

+ 0. 31 60659 E+ 01 

/And these block #'s 
/(third and last group) 

SAMP. DEV. 

+ 0. 32598 16E+01 



GRAND MEAN = + 0. 6705441 E+01 
ANALYSIS OF VARIANCE TABLE : 

SOURCE SUM OF SQUARES 

TOTAL : +0. 1 140429 E+04 

WITHIN SAMPLES : + 0. 1 140278 E+04 

BETWEEN SAMPLES : + 0. 1 518 554E+00 

F RATIO : BETWEEN/WI THIN = +0.71248 


DF 

VARIANCE 

109 

+ 0. 1 046266E+ 02 

107 

+ 0. 1 0 6 5 68 0E+02 

2 

+ 0. 759 2773E- 01 



1 IE-02 
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READ LINES : _A_ /Read all of 

BLOCK NUMBERS : 44 40, A3 (CTRL/FORM) /These block #’s (first group) 

SIZE MEAN VARIANCE SAMP. DEV. 

75 +0.79 63994E+01 +0. 18 439 03E+02 +0. 429 4069E+01 

BLOCK NUMBERS • 60* 64 $ /And these block #'s (second and last group) 

SIZE MEAN VARIANCE SAMP. DEV. 

75 . +0. 79 50658E+01 + 0. 1773676E+02 +0.4211506E+01 


GRAND MEAN = + 0. 79 5731 5E+01 
ANALYSIS OF VARIANCE TABLE S 


SOURCE 

SUM OF SQUARES 

DF 

VARIANCE 

TOTAL : 

+ 0. 2677009E+04 

149 

+ 0. 1 79 6650E+02 

WITHIN SAMPLES S 

+ 0. 267701 0E+04 

148 

+ 0. 18 08 79 0E+02 

BETWEEN SAMPLES : 

-0. 14648 43E- 02 

1 

-0. 14648 43E- 02 

T = +0.8999 148 E-02 

WITH 

DF = 148 



BLOCK NUMBERS : + C 


/Return control to tape Monitor 
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/ FORT* 

ANALYSIS OF VARIANCE 



/MOUNT 

DATA TAPF ON UNIT #1. TERMINATE GROUPS 



/OF BLOCK #'S BY CTRL 

-FORM EXCEPT FOR LAST 



/GROUP. 

TERMINATE LAST GROUP BY S 



* 200 



0 200 

1200 

CAL CP, 

CALC 


0 201 

0600 

LOADP, 

LOAD 


0202 

7447 

MY, 

-331 


0 203 

7462 

MN, 

-316 


0 204 

6046 

START, 

TLS 


0 205 

4403 


JMS I MESS 


0 206 

4543 


4543 

/%# 

0207 

4322 


4322 

/#R 

0210 

0501 


0501 

/EA 

0211 

0440 


0440 

/D 

0212 

141 1 


1411 

/LI 

0 213 

1605 


1605 

/NE 

0 214 

2340 


2340 

/s 

0 215 

7240 


7240 

/: 

0216 

0000 


0000 


0 217 

1064 


TAD LTABLE 


0220 

3010 


DCA 10 


0 221 

4601 


JMS I LOADP 

0222 

1072 


TAD NB 


0 223 

7041 


CIA 


0 224 

3073 


DCA NL 

/MINUS # OF LINES 

0225 

1030 


TAD SETSW 


0226 

3075 


DCA SW1 

/COMPLETE BLOCK SWITCH 

0 227 

4407 

CL, 

JMS I 7 


0 230 

5120 


FGET ZERO 

/CLEAR 

0231 

6123 


EPUT FNG 

/# OF GROUPS 

0232 

6131 


EPUT SUM T 

/TOTAL OF ALL X’S 

0 233 

6137 


EPUT FNT 

/TOTAL # OF X’S 

0 234 

6156 


FPUT SSW 

/SUM OF SQUARES WITHIN GROUPS 

0 235 

0000 


FEXT 


0 236 

3074 


DCA TNB 

/CLEAR TOTAL # OF BLOCKS 

0 237 

4403 

BLOAD, 

JMS I MESS 


0 240 

4543 


4543 

/%# 

0241 

4302 


4302 

/#B 

0 242 

1417 


1417 

/LO 

0 243 

0313 


0313 

/CK 

0 244 

4016 

ia 

4016 

/ N 

0245 

2515 


2515 

/UM 

0 246 

0205 


0205 

/BE 

0 247 

2223 


2223 

/RS 

0250 

4072 


4072 

/ : 

0 251 

4000 


4000 


0 252 

1063 


TAD BTABLE 


0 253 

1074 


TAD TNB 


0 254 

3010 


DCA 10 


0 255 

4601 


JMS I LOADP 

0 256 

4600 


JMS I CALCP 
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0 257 

1076 

TAD SW2 

0260 

7650 

SNA CLA 

0 261 

5237 

JMP BLOAD 

0 262 

4403 

JMS I 

MESS 

0 263 

4543 

4543 


0 264 

4343 

4343 


0 265 

0722 

0722 


0266 

0116 

01 16 


0 267 

0440 

0440 


0 270 

1505 

1505 


0 271 

01 16 

01 16 


0 272 

4075 

4075 


0 273 

4000 

4000 


0 274 

4407 

JMS I 

7 

027 5 

5120 

FGET 

ZERO 

0276 

6161 

FPUT 

SUM 2 

0 277 

5131 

FGET 

SUM T 

0 300 

4137 

FDI V 

FNT 

0 301 

6142 

FPUT 

MEAN 

0 302 

0000 

FEXT 


0 30 3 

4406 

JMS I 

6 

0 304 

4403 

JMS I 

MESS 

030 5 

4543 

4543 


0 306 

4301 

4301 


0 307 

1601 

1601 


0 310 

1431 

1431 


0 311 

2311 

2311 


0 312 

2340 

2340 


0 313 

1706 

1706 


0 314 

4026 

4026 


0 315 

0122 

0122 


0316 

1101 

1101 


0 317 

1603 

1603 


0 320 

0540 

0540 


0 321 

2401 

2401 


0 322 

0214 

0214 


0 323 

0540 

0540 


0 324 

7245 

7245 


0 325 

4343 

4343 


0 326 

2317 

2317 


0 327 

2522 

2522 


0330 

0305 

0305 


0 331 

4040 

4040 


0 332 

4040 

4040 


0 333 

4040 

4040 


0 334 

4040 

4040 


0 335 

4040 

4040 


0 336 

4040 

4040 


0 337 

4023 

4023 


0 340 

2515 

2515 


0 341 

4017 

4017 


0342 

0640 

0640 


0 343 

2321 

2321 



/LAST GROUP SWITCH 

/GET NEXT GROUP OF BLOCK #'S 

/%# 

/## 

/GR 

/AN 

/D 

/ME 

/AN 

/ = 


/CL EAR 


/GRAND MEAN 

/%# 

/*A 

/NA 

/LY 

/SI 

/S 

/OF 

/ V 

/AR 

/I A. 

/NC 

/E 

/TA 

/BL 

/E 

/! % 

/## 

/SO 

/UR 

/CE 


/ S 
/UM 
/ 0 
/F 

/so 
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PAPF 1 


0 344 

2501 

2501 

/UA 

0 34 5 

2205 

2205 

/RE 

0 346 

2340 

2340 

/s 

0 347 

4040 

4040 


0 350 

4040 

4040 


0 351 

4040 

4040 


0 350 

4004 

4004 

/ D 

0 353 

0640 

0640 

/F 

0 354 

4040 

4040 


0 355 

4040 

4040 


0 356 

4026 

4026 

/ V 

0 357 

0122 

0122 

/AE 

0360 

1101 

1 101 

/I A 

0 361 

1603 

1603 

/NC 

0 362 

0545 

0545 

/Et 

0 363 

4343 

4343 

/## 

0364 

2417 

2417 

/TO 

0 365 

2401 

2401 

/TA 

0 366 

1440 

1440 

/L 

0 367 

7240 

7240 

/: 

0 370 

4040 

4040 


0 371 

4040 

4040 


0 372 

4040 

4040 


0 373 

4040 

4040 


0 374 

4040 

4040 


0 375 

4000 

4000 
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0 376 
0377 
0 400 
0401 
0 402 
0 403 
0 404 
0 405 
0 406 
0 407 
0 410 
041 1 
0 412 
0413 
0414 
0 41 5 
0 416 
041 7 
0420 
0 421 
0422 
0 423 
0 424 
0 425 
0 426 
0 427 
0 430 
0 431 
0 432 
0 433 
0 434 
0 435 
0 436 
0 437 
0 440 
0 441 
0 442 
0443 
0 444 
0 445 
0446 
0 447 
0 450 
0451 
0 452 
0 453 
0454 
0455 
0 456 
0 457 
0 460 
0 461 


1074 

7041 

3110 

1063 

3010 

4505 

4500 

4501 
4753 
5205 
2110 
5204 
4407 
5161 
6153 
5137 
2112 
6150 
0000 

4502 
4403 
4543 
4327 
1124 
101 1 
1640 
2301 
1520 
1405 
2340 
7240 
4040 
0000 
4407 
5156 
6153 
5137 
2123 
6150 
0000 
4502 
4403 
45T3 
4302 
0524 
2705 
0516 
4023 
0115 
2014 
0523 
4072 


TAD 
CIA 
DCA 
TAD 
DCA 
JMS 
JMS 
JMS 
JMS 
JMP 
I SZ 
JMP 
JMS 


TNB 


CNTR 
BTABLE 
10 /SET 

I ORDERP 
I READTP 
I READBP 
I SCALCP 
.-2 


/MINUS TOTAL BLOCKS 


BLOCK TABLE 

/READ 

/READ 


A BLOCK OF TAPE 
ONE DATA POINT 


OUTP 

MESS 


CNTR 
.-5 
I 7 
FGET SUM2 
FPUT SS 
FGET FNT 
FSUB ONE 
FPUT DF 
FEXT 
JMS I 
JMS I 
4543 
4327 
1 124 
101 1 
1640 
2301 
1520 
1405 
2340 
7240 
4040 
0000 
JMS I 
FGET 
FPUT 
FGET 
FSUB 
FPUT 
FEXT 
JMS I 
JMS I 
4543 
4302 
0524 
2705 
0516 
4023 
0115 
2014 
0523 
4072 


7 

ssw 

SS 

FNT 

FNG 

DF 

OUTP 

MESS 


/BEND, END OF BUFFER 


/SUM OF X'S SQUARED 
/SUM SQUARES 
/TOTAL # OF X’S 

/DEGREES OF FREEDOM 

/TOTAL: 

/%# 

/#W 
/I T 
/HI 
/N 
/SA 
/MP 
/LE 
/S 
/: 


/SUM OF SQUARES WITHIN GROUPS 


/# OF GROUPS 


/WITHIN SAMPLES: 

/%# 

/ #B 
/ET 
/WE 
/EN 
/ S 
/AM 
/PL 
/ES 
/ : 


69 





PAGE 2 


0 462 

4040 


4040 

0 463 

0000 


0000 

0 464 

4407 


JMS I 7 

0 465 

5145 


E6ET FTEMP 

0 466 

6167 


FPUT MSW /MEAN SQUARE WITHIN SAMPLES 

0 467 

5161 


EGET SUM2 

0 470 

2156 


FSUB SSW 

0 471 

6153 


EPUT SS 

0 47P 

5123 


FGET FNG 

0 473 

2112 


FSUB ONE 

0 474 

6150 


FPUT DF 

0 475 

0000 


FEXT 

0476 

4502 


JMS I OUTP /BETWEEN SAMPLES: 

0477 

4407 


JMS I 7 

0 500 

5145 


FGET ETEMP 

0 501 

6164 


EPUT MSB /MEAN SGUARE BETWEEN SAMPLES 

0 50P 

5123 


FGET FNG 

0 503 

2112 


FSUB ONE 

0 504 

2112 


FSUB ONE 

0 505 

0000 


FEXT 

0 506 

4404 


JMS I UNEL 

0 507 

7650 


SNA CLA 

0 510 

5750 


JMP I TOUTP /2 GROUPS, OUTPUT T 

0 51 1 

5751 


JMP I FOUTP /OUTPUT F RATIO 

0 51P 

4403 

END* 

JMS I MESS 

0 513 

4543 


4543 /%# 

0 514 

4343 


4343 

0 515 

4343 


4343 

0 516 

4343 


4343 

0 517 

4300 


4300 

0 5P0 

1075 


TAD SW1 

0 5P1 

7650 


SNA CLA 

0 5PP 

5752 


JMP I STARTP 

0 5P3 

5724 


JMP I CLP 

0 5P4 

0227 

CLP, 

CL 

0 5P5 

0000 

0UT4, 

0 /OUTPUT MAX OF 4 DIGITS, NO SI 1 

0 526 

4407 


JMS I 7 

0 527 

1115 


FADD PT1 

0 530 

0000 


FEXT 

0 531 

1346 


TAD C4 

0 532 

3062 


DCA 62 

0 533 

3744 


DC A I FP1 

0 534 

3745 


DCA I FP2 

0 535 

4406 


JMS I 6 

0 536 

1347 


TAD C253 /RESTORE FLOATING POINT 

0 537 

3744 


DCA I FP1 

0 540 

1067 


TAD C2 

0 541 

3745 


DCA I FP2 

0 542 

3062 


DCA 62 

0 543 

5725 


JMP I 0UT4 

0 544 

7327 

FP1, 

7327 

0 545 

7330 

FP2, 

7330 

0 546 

0004 

C4, 

4 
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0 547 

0253 

C253, 

253 

0 550 

1001 

TO UTP> 

TOUT 

0 551 

1040 

FOUTP* 

FOUT 

0552 

0204 

STAR TP, 

START 

0 553 

1350 

SCALCP, 

SCALC 
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* 600 


0 600 

0000 

LOAD, 

0 


0601 

3072 


DCA 

NB 

0 602 

3030 


DCA 

SETSW 

0 603 

3076 


DCA 

SW2 

0 604 

4405 


JMS 

I 5 

0 605 

1060 


TAD 

60 

0606 

7650 


SNA 

CL A 

0 607 

52T1 


JMP 

TERM 

0610 

4404 


JMS 

I UNFL 

061 1 

3020 


DCA 

TEMPI 

0612 

1020 


TAD 

TEMPI 

0613 

3410 


DCA 

I 10 

061 A 

2072 


I SZ 

NB 

0615 

1057 


TAD 

57 

0616 

1023 


TAD 

MCOM 

0617 

7640 


SZA 

CL A 

0 620 

5204 


JMP 

LOAD+4 

0621 

4405 


JMS 

I 5 

0622 

1060 


TAD 

60 

0623 

7650 


SNA 

CL A 

0 624 

5221 


JMP 

.-3 

0 62 5 

4404 


JMS 

I UNFL 

0626 

7041 


CIA 


0627 

3021 


DCA 

TEMP2 

0 630 

1020 


TAD 

TEMPI 

0 631 

1021 


TAD 

TEMP2 

0632 

7700 


SMA 

CL A 

0633 

5204 


JMP 

LOAD* 4 

0634 

2020 


I SZ 

TEMPI 

0635 

1020 


TAD 

TEMPI 

0636 

3410 


DCA 

I 10 

0637 

2072 


I SZ 

NB 

0640 

5230 


JMP 

.-10 

0 641 

1057 

TERM, 

TAD 

57 

0 642 

1066 


TAD 

MCC 

0 643 

7650 


SNA 

CL A 

0 644 

5470 


JMP 

I TAPE 

0 64 5 

1057 


TAD 

57 

0 646 

1025 


TAD 

MA 

0 647 

7640 


SZA 

CL A 

0 650 

5253 


JMP 

. + 3 

0651 

2030 


I SZ 

SETSW 

0652 

5600 


JMP 

I LOAD 

0 653 

1057 


TAD 

57 

0 654 

1024 


TAD 

MFORM 

0655 

7650 


SNA 

CL A 

0 656 

5600 


JMP 

I LOAD 

0 657 

1057 


TAD 

57 

0 660 

1106 


TAD 

MDOL 

0 661 

7640 


SZA 

CL A 

0 662 

5204 


JMP 

LOAD+4 


/LOAD TABLE STARTING AT I 10 

/INVALID, CHECK TERMINATOR 

/DEPOSIT IN TABLE 
/COUNT #’S DEPOSITED 

/NOT A COMMA, GET NEXT # 

/GET # AFTER COMMA 

/INVALID, TRY AGAIN 

/MINUS 2ND # 

/TABLE SET FROM 1ST TO 2ND #*S 

/DEPOSIT IN TABLE 
/COUNT #'S DEPOSITED 

/RETURN TO TAPE SYSTEM 

/READ COMPLETE BLOCKS 

/INVALID TERM., GET NEXT # 
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0663 
0 664 
0665 
0 666 
0667 
0670 
0671 
0 672 
0673 
0 674 
0675 
0 676 
0677 
0700 
0701 
0 702 
0 703 
0 704 
0705 
0 706 
0707 
0710 
0711 
0712 
0 713 
0714 
0715 
0716 
0717 
0 720 
0 721 
0 722 
0 723 
0 724 
0725 
0 726 
0 727 
0 730 
0731 
0 732 
0733 
0734 
0735 
0 736 
0737 
0 740 
0 741 
0 742 
0 743 
0 744 
0 745 
0 746 
0 747 


2076 


ISZ 

SW2 /LAST GROUP 

5600 


JMP 

I LOAD 

0000 

ORDER* 

0 

/PUT TABLE AT I 10 

1010 


TAD 

10 

3022 


DCA 

TEMP3 /SAVE POINTER 

1110 


TAD 

CNTR 

3026 


DCA 

CNTR1 /SET CNTR1 

1022 


TAD 

TEMP3 

3010 


DCA 

10 /SET INDEX 

3071 


DCA 

NINV /CLEAR # OF INVERSI 

2026 

7410 


ISZ 

SKP 

CNTR 1 

5320 


JMP 

DONE 

1410 


TAD 

I 10 

3020 


DCA 

TEMPI 

1410 


TAD 

I 10 

3021 


DCA 

TEMP2 

1077 


TAD 

SWI D /INCREASE-DECREASE 

7640 


SZA 

CL A 

5327 


JMP 

INVERT-4 

1020 

7041 


TAD 

CIA 

TEMPI 

1021 


TAD 

TEMP2 

7710 


SPA 

CLA /SKIP IF #2 .> #1 

5333 


JMP 

INVERT 

1010 


TAD 

10 

1065 


TAD 

M 1 

3010 


DCA 

10 /SET INDEX BACK 1 

5275 


JMP 

0RDER+ 10 

1071 

DONE* 

TAD 

NINV 

7640 


SZA 

CLA 

5270 


JMP 

ORDER+3 /REPEAT 

1022 


TAD 

TEMP3 

3010 


DCA 

10 /RESTORE 10 

3077 


DCA 

SWI D /CLEAR SWITCH 

5665 


JMP 

I ORDER 

1021 

7041 


TAD 

CIA 

TEMP2 /DECREASING ORDER 

1020 


TAD 

TEMPI 

5312 


JMP 

DONE-6 

1010 

INVERT* 

TAD 

10 

1027 


TAD 

M2 

3010 


DCA 

10 /SET INDEX BACK 2 

1021 


TAD 

TEMP2 

3410 


DCA 

I 10 

1020 


TAD 

TEMPI 

3410 


DCA 

I 10 

2071 


I SZ 

NINV 

5314 


JMP 

DONE-4 

0000 

OUT* 

0 


4407 


JMS 

I 7 

5153 


FGET SS 

0000 


FEXT 


IN ORDER 


SWI TCH 
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0 750 
0 751 
0752 
0 753 
0 754 
0755 
0756 
0757 
0 760 
0761 
0 762 
0 763 
0764 
0765 
0 766 
0 767 
0 770 
0771 
0 772 
0773 
0 774 
0 775 


4406 

JMS I 

6 

4403 

JMS I 

MESS 

4040 

4040 


4040 

4040 


4040 

4040 


0000 

0000 


4407 

JMS I 

7 

5150 

FGET 

DF 

0000 

FEXT 


4503 

JMS I 

0UT4P 

4403 

JMS I 

MESS 

4040 

4040 


4040 

4040 


4040 

4040 


0000 

0000 


4407 

JMS I 

7 

5153 

FGET 

SS 

4150 

FDI V 

DF 

6145 

FPUT 

FTEMP 

0000 

FEXT 


4406 

JMS I 

6 

5744 

JMP I 

OUT 


/SUM OF SQUARES 


/6 SPACES 


/DEGREES OF FREEDOM 


/6 SPACES 


/MEAN SQUARE 
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*1000 


1 000 

0515 

ENDP> 

END 



1 001 

4403 

TO UT> 

JMS I 

MESS 


1 002 

4543 


4543 


/%§ 

1 003 

4324 


4324 


/ #T 

1 004 

4075 


4075 


/ = 

1 005 

4000 


4000 



1 006 

4407 


JMS I 

7 


1 007 

5164 


FGET 

MSB 


1 010 

4167 


FDI V 

MSW 


1 011 

0002 


SQROOT 


1 012 

0000 


FEXT 



1 013 

4406 


JMS I 

6 


1 014 

4403 


JMS I 

MESS 


1 01 5 

4040 


4040 


/ 14 

1 016 

4040 


4040 



1 017 

4040 


4040 



1 020 

4040 


4040 



1 021 

4040 


4040 



1 022 

4040 


4040 



1 023 

4040 


4040 



1 024 

271 1 


271 1 


/WI 

1 025 

2410 


2410 


/TH 

1 026 

4004 


4004 


/ D 

1 027 

0640 


0640 


/F 

1 030 

7540 


7540 


/= 

1 031 

0000 


0000 



1 032 

4407 


JMS I 

7 


1 033 

5137 


FGET 

FNT 


1 034 

2123 


FSUB 

FNG 


1 035 

0000 


FEXT 



1 036 

4503 


JMS I 

0UT4P 

1 037 

5600 


JMP I 

ENDP 


1 040 

4403 

FOUT, 

JMS I 

MESS 


1 041 

4543 


4543 


/%# 

1 042 

4306 


4306 


/ #F 

1 043 

4022 


4022 


/ R 

1 044 

0124 


0124 


/AT 

1 045 

1117 


1117 


/IO 

1 046 

4072 


4072 


/ : 

1 047 

4002 


4002 


/ B 

1 050 

0524 


0524 


/ET 

1 051 

2705 


2705 


/WE 

1 052 

0516 


0516 


/EN 

1 053 

5727 


5727 


//W 

1 054 

1 124 


1124 


/IT 

1 055 

1011 


1011 


/HI 

1 056 

1640 


1640 


/N 

1 057 

7540 


7540 


/ = 

1 060 

0000 


0000 



1 061 

4407 


JMS I 

7 


1 062 

5164 


FGET ! 

MSB 



SPACES 
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1 063 
1 064 
1 065 
1 066 
1 067 
1 070 
1 071 
1 072 
1 073 
1 074 
1 075 
1 076 
1 077 
1 100 
1 101 
1 102 
1 103 
1 104 
1 105 
1 106 
1 107 
1110 
1111 
1112 

1113 

1114 

1115 

1116 
1117 
1 120 
1 121 
1 122 
1 123 
1 124 
1 125 
1 126 
1 127 
1 130 
1 131 
1 132 
1 133 
1 134 
1 135 
1 136 
1 137 
1 140 
1 141 

1 142 
1 143 
1 144 
1 145 
1 146 
1 147 


4167 


FDI V MSW 


0000 


FEXT 


4406 


JMS I 6 


5600 


JMP I ENDP 


0000 

READT, 

0 


1410 


TAD I 10 

/BLOCK INDEX 

3276 


DC A BLOCK 


1 1 1 1 


TAD DATA 


301 1 


DCA 1 1 

/READ INDEX 

4402 


JMS I RWTAPE 

1201 


1201 


0000 

BLOCK, 

0 


2000 


2000 

/READ DATA INTO 2000 

1075 


TAD SW1 


7640 


SZA CL A 


5667 


JMP I READT /COMPLETE 

1064 


TAD LTABLE 


3013 


DCA 13 


1073 


TAD NL 

/MINUS # OF LINES 

3353 


DCA CNT 


1413 

SET, 

TAD I 13 

/LINE # 

1065 


TAD Ml 


7425 


7425 

/MUY 

0003 


0003 


7701 


7701 

/cla+mqa 

1 1 1 1 


TAD DATA 


3012 


DCA 12 

/3CLINE- 1 ) + DATA 

1412 


TAD I 12 


341 1 


DCA I 1 1 


1412 


TAD I 12 


341 1 


DCA I 1 1 


1412 


TAD I 12 


341 1 


DCA I 1 1 


2353 


ISZ CNT 


5307 


JMP SET 


1 107 


TAD DOL 


3411 


DCA I 1 1 

/TERMINATE DATA 

1 1 1 1 


TAD DATA 


301 1 


DCA 11 

/SET READ INDEX 

5667 


JMP I READT 

0000 

READB, 

0 

/READ DATA BUFFER 

1333 


TAD READB 


1067 


TAD C2 


3352 


DCA BEND 

/JMPS HERE AT END OF 

141 1 


TAD I 1 1 


1106 


TAD MDOL 


7450 


SNA 


5752 


JMP I BEND 

/END OF BLOCK 

1107 


TAD DOL 


3044 


DCA 44 

/LOAD FAC 

141 1 


TAD I 11 


3045 


DCA 45 


1411 


TAD I 1 1 



BLOCK 
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1 1U0 

3046 


DCA 

46 

1 151 

5733 


JMP 

I READB /FAC LOADED 

1 152 

0000 

BEND* 

0 


1 153 

0000 

CNT* 

0 


1 154 

0000 

SETR* 

0 

/SET INDICES 

1 155 

1072 


TAD 

NB 

1 156 

7041 


CIA 


1 157 

3110 


DCA 

CNTR 

1 160 

1110 


TAD 

CNTR 

1 161 

1010 


TAD 

10 

1 162 

3010 


DCA 

10 /BLOCK TABLE 

1 163 

5754 


JMP 

I SETR 


77 






* 1HOO 


1 POO 

0000 CALC* 

0 



1 201 

1072 

TAD NB 


1 202 

1074 

TAD TOB 


1 203 

3074 

DC A TNB 

/TOTAL BLOCH 

1 204 

4407 

JMS I 

7 


1 205 

5120 

FGET 

ZERO 

/CLEAR 

1 206 

6134 

FPUT 

FN 


1 207 

6126 

FPUT 

SUM 


1 210 

6161 

FPUT 

SUMP 


1 21 1 

51 12 

FGET 

ONE 


1 212 

1123 

FADD 

FNG 


1 213 

6123 

FPUT 

FNG 


1 214 

0000 

FEXT 



1 21 5 

4504 

JMS I 

SETRP 

1 216 

4505 

JMS I 

ORDERP 

1 217 

4500 

JMS I 

READTP > 

1 220 

4501 

JMS I 

READBP 

1 221 

4360 

JMS MCALC 

/SUM X’S 

1 222 

5220 

JMP . 

-2 


1 223 

2110 

ISZ CNTR 

/BEND 

1 224 

5217 

JMP . 

- 5 


1 225 

4407 

JMS I 

7 


1 226 

5126 

FGET 

SUM 


1 227 

4134 

FDI V 

FN 


1 230 

6142 

FPUT 

MEAN 


1 231 

0000 

FEXT 



1 232 

4504 

JMS I 

SETRP 

1 233 

2077 

ISZ SWID 

/DECREASING 

1 234 

4505 

JMS I 

ORDERP 

1 235 

4500 

JMS I 

READTP 

1 236 

4501 

JMS I 

READBP 

1 237 

4350 

JMS SCALC 

/CALCULATE 

1 2T0 

5236 

JMP . 

-2 


1 241 

2110 

ISZ CNTR 


1 242 

5235 

JMP . 

-5 


1 243 

4403 

JMS I 

MESS 


1 244 

4543 

4543 


/%# 

1 245 

4323 

4323 


/#s 

1 246 

1132 

1132 


/IZ 

1 247 

0540 

054P 


/E 

1 250 

4040 

4040 


/6 SPACES 

1 251 

4040 

4040 



1 252 

TO 1 5 

4015 


/ M 

1 253 

0501 

0501 


/EA 

1 254 

1640 

1 640 


/N 

1 255 

4040 

4040 


/13 SPACES 

1 256 

4040 

4040 



1 257 

4040 

4040 



1 260 

4040 

4040 



1 261 

4040 

4040 



1 262 

4040 

4040 




TAPE 

ONE POINT 


IN DATA BU 


ORDER BTABLE 


SUM OF SQUARES 
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1 263 

2601 

2601 

/VA 

1 264 

2211 

2211 

/RI 

1 265 

0116 

01Q6 

/AN 

1 266 

0305 

0305 

/CE 

1 267 

4040 

4040 

/9 SPACES 

1 270 

4040 

4040 


1 271 

4040 

4040 


1 272 

4040 

4040 


1 273 

4023 

4023 

/ S 

1 274 

01 1 5 

0115 

/AM 

1 275 

2056 

2056 

/P. 

1 276 

4004 

4004 

/ D 

1 277 

0526 

0526 

/EV 

1 300 

5645 

5645 

/. 7 

1 301 

4343 

4343 

/## 

1 302 

0000 

0000 


1 303 

4407 

JMS I 7 


1 304 

5134 

FGET FN 


1 305 

0000 

FEXT 


1 306 

4503 

JMS I 0UT4P 

1 307 

4403 

JMS I MESS 


1 310 

4040 

4040 

/6 SPACES 

1 31 1 

4040 

4040 


1 312 

4040 

4040 


1 31 3 

0000 

0000 


1 314 

4407 

JMS I 7 


1 31 5 

5142 

FGET MEAN 


1 316 

0000 

FEXT 


1 31 7 

4406 

JMS I 6 

/MEAN 

1 320 

4403 

JMS I MESS 


1 321 

4040 

4040 


1 322 

4000 

4000 


1 323 

4407 

JMS I 7 


1 324 

5161 

FGET SUM2 


1 325 

1 1 56 

FADD SSW 


1 326 

6156 

FPUT SSW 


1 327 

5134 

FGET FN 


1 330 

2112 

FSUB ONE 


1 331 

6134 

FPUT FN 


1 332 

5161 

FGET SUM2 


1 333 

4134 

FDI V FN 


1 334 

6145 

FPUT FTEMP 


1 335 

0000 

FEXT 


1 336 

4406 

JMS I 6 

/VARIANCE 

1 337 

4403 

JMS I MESS 


1 340 

4040 

4040 


1 341 

4000 

4000 


1 342 

4407 

JMS I 7 


1 343 

5145 

FGET FTEMP 


1 344 

0002 

SQROOT 


1 345 

0000 

FEXT 


1 346 

4406 

JMS I 6 

/SAMPLE DE 

1 347 

5600 

JMP I CALC 



/SIZE 


DEVIATION 
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1 350 

0000 

SCALC* 

0 

/SUM X'S SQUARED 

1 351 

4407 


JMS I 

7 

1 35? 

2142 


FSUB 

MEAN 

1 353 

0001 


SQUARE 

1 354 

1 161 


FA PD 

SUM2 

1 355 

6161 


FPUT 

SUMP 

1 356 

0000 


FEXT 


1 357 

5750 


JMP I 

SCALC 

1 360 

0000 

MCALC, 

0 

/SUM OF X'S 

1 361 

4407 


JMS I 

7 

1 362 

6145 


FPUT 

FTEMP 

1 363 

1126 


FADD 

SUM /SUM X, THIS GROUP 

1 364 

6126 


FPUT 

SUM 

1 365 

5145 


FGFT 

FTEMP 

1 366 

1131 


FADD 

SUMT /SUM OF ALL X'S 

1 367 

6131 


FPUT 

SIM T 

1 370 

5112 


FGFT 

ONE 

1 371 

1134 


FADD 

FN /COUNT X'S THIS GROUP 

1 372 

6134 


FPUT 

FN 

1 373 

5112 


FGET 

ONE 

1 374 

1 137 


FADD 

FNT /COUNT TOTAL X'S 

1 375 

6137 


FPUT 

FMT 

1 376 

0000 


FEXT 


1 377 

5760 


JMP I 

M CAL C 
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*20 


0 020 

0000 

TEMPI, 

0 

0 021 

0000 

TEMP2, 

0 

0 022 

0000 

TEMP3, 

0 

0 023 

7524 

M COM, 

-254 

0 024 

7564 

MFORM, 

-214 

0 025 

7477 

MA, 

-301 

0 026 

0000 

CNTR1, 

0 

0027 

7776 

M2, 

-2 

0030 

0000 

SETSW, 

0 



*62 


0 062 

0000 


0 

0063 

2377 

B TABLE, 

2377 

0 064 

2177 

L TABLE, 

2177 

0065 

7777 

Ml, 

-1 

0066 

7575 

MCC, 

-203 

0067 

0002 

C2, 

2 

0070 

7600 

TAPE, 

7600 

0 071 

0000 

NINV, 

0 

0072 

0000 

NB, 

0 

0073 

0000 

ML, 

0 

0 074 

0000 

TNB, 

0 

0 075 

0000 

SW1, 

0 

0 076 

0000 

SW2, 

0 

0 077 

0000 

SWI D, 

0 

0 100 

1067 

READTP, 

READT 

0 101 

1133 

READBP, 

READB 

0102 

0744 

0 UTP, 

OUT 

0103 

0525 

0 UT4P, 

0UT4 

0 104 

1154 

SETRP, 

SETR 

0 105 

0665 

0 RDERP, 

ORDER 

0 106 

7534 

MDOL, 

-244 

0107 

0244 

DOL, 

244 

0 110 

0000 

CM TR, 

0 

0 111 

1777 

DATA, 

1777 

0 112 

0001 



0 113 

2000 



0 1 14 

0000 

ONE, 

15 20005 0 

0 115 

7775 



0 116 

3146 



0 117 

3146 

PT1, 

77755 31465 3146 

0 120 

0000 



0 121 

0000 



0 122 

0000 

ZERO, 

O 

Wt 

O 

w. 

O 

0 123 

0000 



0 124 

0000 



0 125 

0000 

FNG, 

o 

o 

o 

0 126 

0000 



0 127 

0000 



0 130 

0000 

SUM, 

05 05 0 

0 131 

0000 



0 132 

0000 
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0 133 

0000 

SUM T, 

o 

o 

o 

0 134 

0000 



0 135 

0000 



0 136 

0000 

FN» 

o; o; o 

0 137 

0000 



0 1 AO 

0000 



0 1 A1 

0000 

FNT, 

O 

••s 

o 

o 

0 142 

0000 



0 1 A3 

0000 



0 144 

0000 

MEAN, 

o 

V* 

o 

o 

0 145 

0000 



0 146 

0000 



0 147 

0000 

FTEMP, 

0> 0J 0 

0 1 50 

0000 



0 151 

0000 



0 152 

0000 

DF, 

o 

••V 

o 

o 

0 153 

0000 



0 154 

0000 



0 155 

0000 

SS, 

o; o; o 

0 156 

0000 



0 157 

0000 



0 160 

0000 

ssw. 

O 

o 

o 

0 161 

0000 



0 162 

0000 



0 163 

0000 

SUM 2, 

o; o; o 

0 164 

0000 



0 1V5 

0000 



0 166 

0000 

MSB, 

o; o; o 

0 167 

0000 



0 170 

0000 



0 171 

0000 

MSW, 

O 

o 

o 



* 7341 


7341 

0000 


0 

7342 

0000 


0 


SQUARE= 1 
SQROO T= 2 
RWTAPE= 2 
MESS= 3 
UNFL=4 
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BEND 

1 1 52 

BLOAD 

0237 

BLOCK 

1076 

B TABLE 

0063 

CALC 

1200 

CAL CP 

0200 

CL 

0227 

CLP 

0524 

CNT 

1153 

CNTR 

0110 

CNTR1 

0026 

C 2 

0067 

C 253 

0547 

C A 

0546 

DATA 

01 1 1 

DF 

0150 

DOL 

0107 

DONE 

0720 

END 

0512 

ENDP 

1000 

FN 

0134 

FNG 

0123 

FNT 

0137 

FOUT 

1040 

FOUTP 

0551 

F PI 

0544 

FP2 

0545 

F TEMP 

0145 

I NVERT 

0733 

LOAD 

0600 

LOADP 

0201 

L TABLE 

0064 

M A 

0025 

M CALC 

1360 

M CC 

0066 

M COM 

0023 

M DOL 

0106 

M EAN 

0142 

M ESS 

0003 

M FORM 

0024 

MN 

0203 

M SB 

0164 

M SW 

0167 

MY 

0202 

M 1 

0065 

M 2 

0027 

NB 

0072 

N INV 

0071 

NL 

0073 

ONE 

01 12 

ORDER 

0665 

0 RDERP 

0105 
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0 UT 

0744 

0 UTP 

0102 

0 UT4 

0525 

0 UT4P 

0103 

PT1 

011 5 

READB 

1133 

R EADBP 

0101 

READT 

1067 

REA DTP 

0100 

R WTAPE 

0002 

SCALC 

1350 

S CALCP 

0553 

SET 

1107 

SETR 

1 1 54 

SETRP 

0104 

S ETSW 

0030 

S QROOT 

0002 

SQUARE 

0001 

SS 

0153 

SSW 

0156 

S TART 

0204 

S TARTP 

0552 

SUM 

0126 

SUMT 

0131 

SUM2 

0161 

S WI D 

0077 

S W1 

0075 

S W2 

0076 

TAPE 

0070 

TEMPI 

0020 

TEMP2 

0021 

TEMP3 

0022 

TERM 

0641 

TNB 

0074 

TOUT 

1001 

TO UTP 

0550 

UNFL 

0004 

Z ERO 

0120 
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COVAR - COVARIANCE 


PURPOSE: This program calculates the necessary values for an 

analysis of covariance from data files stored on DECtape data tape. 

The paired Input consists of matching files of x and y data. The 
output is: 

A. Number of pairs. 

B. Correlation coefficient. 

C. T value to test the correlation coefficient against the 

null hypothesis i.e. the correlation coefficient is not 
different from zero. 

D. Degrees of freedom for T. 

E. Equation of best-fit linear regression line. 

F. Sum of squared deviations of y's about the regression line. 

G. Standard error of the estimate. 

H. Sum of products xy is the sum of the cross products of 

x and y deviations from their respective means. 

I. Sample covariance. 

J. For the x group and the y group. 

1. Mean. 

2. Sum of squared deviations from the mean. 

3. Sample variance. 

4. Sample standard deviation. 

By proper arrangement of input data the user may obtain values 
for each sample and for a total of all samples as a group. Sums 
of sample values will give the Within Samples Sums for comparison 
with Between Samples Sums (Total - Within Samples values) for F tests 
on several groups of samples. Various tests in the analysis of 
variance may be performed using the output of this program. The 
user is referred to Statistical Methods, sixth edition, by G. W. Snedicor 
and W. G. Cochran, Iowa State University Press, 1967, for a discussion 
of analysis of covariance tests. 
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COVAR 


COVARIANCE (continued) 


OPERATION: When COVAR is called it will type "READ X LINES : 

The user will type line numbers of x data to be operated on and 
terminate line input with "CTRL/FORM”. If all lines, complete data 
blocks, are to be used for both x and y inputs the user may type "A" 
for all. The program will ask for "X BLOCK NUMBERS : ", "READ Y LINES : 
and "Y BLOCK NUMBERS : In each case, the user supplies block and 

line numbers and terminates input with "CTRL/FORM". Data input should 
be paired. The first x data point is paired with the first y data 
point and data blocks are read in pairs by the program so that the 
number of x lines to be read must equal the number of y lines and the 
number of x blocks must equal the number of y blocks. Unpaired data 
input will cause the program to type "UNPAIRED DATA " and return to 
the beginning. After the input of y block numbers, the program will 
proceed through calculation and output and return to "READ X LINES : 
unless this request has previously been answered by "A" in which case 
the program will start over at "X BLOCK NUMBERS : ". 

DESCRIPTION: COVAR will accommodate data tapes of standard (129 10 ) 
or shorter block length. Two complete passes of the data are done. 

On pass 1 the sums of x f s and y's are totaled and the data is counted. 
The means of x and y are calculated before pass 2. 

During pass 2 the sums of squared deviations from the mean and 
the sum of cross products of the deviations are calculated. The 
necessity to compute cross products demands that data be read in 
pairs. This program, therefore, reads a block of x data and a block 
of y data and then proceeds to read an x data point and a y data point. 
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COVAR - COVARIANCE (continued) 


The following calculations are used in COVAR: 


A. Number of pairs 


N 


B. For x and y (x shown) 

1. Mean ■ 

2. Sum of Squares 

3. Sample Variance 


■ x 


E(x-x) 2 
E(x - x) : 


(N-l) 


A. Sample Standard Deviation 


/ 


t(x - x ) 2 

(N-l) 


C. Sum of products xy ■ 

D. Sample Covariance ■ 

E. Correlation Coefficient 


£(x - x)(y - y) 

E(x - x)(y - y) 

(N-l) 


R V(N-2) 

fl-R 2 


E(x - x)(y - y) 

^£(x - x) 2 E(y - y)‘ 


F. T - 

G. Degrees of Freedom - N - 2 


H. Equation of best-fit Line Y' - aX + b 
1. Slope ■ a ■ 


£(x - *>(y - y) 

t(x - xT 2 


2. Intercept b ■ 

I. Sums of Squared Deviations 


z - - illy - y) 

y £(x - x) 2 


v/.. ~\2 (E(x - x)(y - y)} 

t(y y) -t(x - i) 1 


J. Standard Error of Estimate ■ 


i 


£(y - y) 2 — ( £(x - x)(y - ^)) 2 

£(x - x)* 


(N-2) 
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COVAR J 


/Call program 


READ X LINES : g A 6, 1 5 (CTRL/FORM) /Read these lines of x block #'s 
READ Y LINES : 1 3 6, 15 (CTRL/FORM) /Read these lines of y block #'s 
X BLOCK NUMBERS : 60, 63 (CTRL/FORM) 

Y BLOCK NUMBERS : AO 42, 44 (CTRL/FORM) 

NUMBER OF PAIRS : 48 

CORRELATION COEFFICIENT : +0.9959431 E+00 
T : + 0. 7506659E+02 WITH DF : 46 

Y* = ( + 0. 1090463E+015X - 0.948 5721E+00 

SUM OF SQUARED DEVIATIONS : +0. 6412597E+01 

STANDARD ERROR OF ESTIMATE : + 0. 373368 7E+00 
SIM OF PRODUCTS XY : + 0. 7203 58 4E+03 

SAMPLE COVARIANCE : + 0. 1 532677E+02 


X 


Y 


MEAN 


+ 0* 9 14999 3E+ 01 


+ 0.9029 163E+01 


SIM OF SQUARES : 


+ 0. 660598 2E+ 03 


+ 0. 79 19371E+ 03 


SAMPLE VARIANCE 


+ 0. 1405528 E+02 


+ 0. 168 49 72E+ 02 


SAMPLE DEVIATION 


+ 0. 3749037E+01 


+ 0, 41 04341E+01 
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# 


READ X LINES /Read all of both x and y block #'s 

X BLOCK NUMBERS : 40» 4P (CTRL/FORM) 

Y BLOCK NUMBERS : 62* 6A (CTRL/FORM) 

NUMBER OF PAIRS s 45 

CORRELATION COEFFICIENT : +0.99 59 29 5E+00 
T S +0.7245501E+02 WITH DF : 43 

Y* = ( + 0.9660537E+00)X + 0. 2466697E+00 

SUM OF SQUARED DEVIATIONS : + 0. 6398 559 E+01 

STANDARD ERROR OF ESTIMATE : + 0. 38 57508 E+00 
SUM OF PRODUCTS XY : +0.S086355E+03 

SAMPLE COVARIANCE : + 0. 1837808E+02 


MEAN : 

SUM OF SQUARES : 
SAMPLE VARIANCE ! 
SAMPLE DEVIATION 


+ 0. 798 6665E+ 01 
+0.8370503E+03 
+ 0. 1902386E+02 
+ 0. 4361635E+01 


+ 0. 79 6221 7E+01 
+ 0. 78 758 39 E+03 
+ 0. 1 789 9 63E+ 02 
+ 0. 423079 6E+ 01 


X BLOCK NUMBERS : +C 


/Return control to tape Monitor 
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0 200 

6046 

0201 

4403 

0202 

4543 

0 203 

4322 

0204 

0501 

0205 

0440 

0206 

3040 

0207 

141 1 

0210 

1605 

021 1 

2340 

0212 

7240 

0213 

0000 

0214 

1072 

0215 

3010 

0216 

4565 

0217 

1064 

0220 

3066 

0221 

1066 

0222 

7640 

0 223 

5251 

0224 

1073 

0225 

7041 

0226 

3074 

0227 

4403 

0230 

4543 

0231 

4322 

0232 

0501 

0233 

0440 

0234 

3140 

0235 

141 1 

0236 

1605 

0237 

2340 

0 240 

7240 

0241 

0000 

0 242 

1075 

0 243 

3010 

0 244 

4565 

0245 

1073 

0 246 

1074 

0 247 

7640 

0250 

5566 

0251 

1106 

0 252 

3010 

0253 

4403 

0254 

4543 


/COVAR, ANALYSIS OF COVARIANCE 
/MOUNT DATA TAPE ON UNIT #1. TERMINATE LINE 
/OR BLOCK # INPUT WITH CTRL/FORM. TO READ 
/COMPLETE BLOCKS RESPOND TO "READ LINES : " 

/WITH "A". X DATA IS PAIRED IN ORDER WITH 
/Y DATA. 

*200 

START. TLS 

JMS I MESSP /READ X LINES : 

4543 
4322 
0501 
0440 
3040 
141 1 
1605 
2340 
7240 
0000 

TAD XLT /X LINE TABLE 

DCA 10 

JMS I BLOADP /LOAD X LINE TABLE 

TAD SETSW 

DCA SW /COMPLETE BLOCK SWITCH 

TAD SW 

SZA CLA 

JMP BN 

TAD NB 

CIA 

DCA NXL /MINUS # OF X LINES 
JMS I MESSP /READ Y LINES : 

4543 
4322 
0501 
0440 
3140 
141 1 
1605 
2340 
7240 
0000 

TAD YLT /Y LINE TABLE 
DCA 10 

JMS I BLOADP /LOAD Y LINE TABLE 

TAD NB 
TAD NXL 
SZA CLA 

JMP I ERRINP /UNPAIRED LINES 

BN, TAD BTABLE 

DCA 10 


JMS I MESSP /X BLOCK NUMBERS : 

4543 
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0 255 

4330 

4330 


'">£56 

4002 

4002 


0257 

1417 

1417 


0 260 

0313 

0313 


0261 

4016 

4016 


0 26? 

251 5 

2515 


0263 

0205 

0205 


0 264 

2223 

2223 


0265 

4072 

4072 


0266 

4000 

4000 


0267 

4 565 

JMS I BLOADP 


0270 

1073 

TAD MB 


0271 

7041 

CIA 


0272 

3076 

DC A NXB /MINUS 

* OF X BLOCKS 

0273 

4403 

JMS I MESSP 

/Y BLOCK NUMBFRS : 

0274 

4543 

4543 


0275 

4331 

4331 


0276 

400? 

4002 


0277 

1417 

1417 


0300 

0313 

0313 


0301 

4016 

4016 


0302 

2515 

2515 


0 303 

0205 

0205 


0 304 

2223 

2223 


0305 

4072 

4072 


0 306 

4000 

4000 


0307 

4565 

JMS I BLOADP 


0310 

1073 

TAD MB 


0311 

1076 

TAD NXB 


0 312 

7640 

SZA CL A 


0313 

5566 

JMP I ERRINP 

/UNPAIRED BLOCKS 

0314 

4407 

JMS I 7 


0 315 

51 16 

EGET ZERO /CLEAR 


0 316 

6121 

FPUT SUMX 


0317 

6124 

FPUT SUMX2 


0320 

6127 

FPUT SUMY 


0 321 

6132 

FPUT SUMY2 


0322 

6135 

FPUT SUMXY 


0323 

6140 

FPUT FN 


0324 

0000 

FEXT 


0325 

4572 

JMS I SETP 


0 326 

4573 

JMS I RXYTP 

/READ AN X * Y BLOCK 

0327 

4574 

JMS I RXYBP 

/READ AN X 4 Y DATA POINT 

0330 

4575 

JMS I TOTALP 


0331 

5327 

JMP .-2 


0332 

21 1 1 

ISZ CNTR 


0333 

5326 

JMP .-5 


0 3?4 

4407 

JMS I 7 /TOTALS 

COMPLETE 

0 335 

5121 

FGET SUMX /COMPUTE MEANS 

0 336 

4140 

FDIV FN 


0337 

6151 

FPUT MEANX 


0 340 

5127 

FGET SUMY 


0341 

4140 

FDIV FN 
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0 342 

6154 

FPUT MEANT 

0 343 

0000 

FEXT 

0344 

4572 

JMS I SETP 

0 345 

4573 

JMS I RXYTP 

0 346 

4574 

JMS I RXYBP 

0347 

4576 

JMS I SUMSQP 

0 350 

5346 

JMP .-2 

0351 

21 1 1 

I SZ CN TR 

0352 

5345 

JMP .-5 


/READ AN X ^ A Y BLOCK 
/READ AN X « A f DATA POINT 
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/MUMPER OF PAIRS 


i AGE ? 


0 3 63 

4/i0 3 

JM S I 

MESSP 

r i 64 

4643 

4543 


o?^ s 

4343 

4343 


0 7 56 

1 6 PS 

1 625 


0367 

1 SOP 

1 50? 


0760 

06PP 

052? 


0361 

401 7 

AO 1 7 


0 36P 

0640 

0640 


0363 

pon 

2001 


0364 

11PP 

1 122 


0365 

P340 

2340 


0366 

7P40 

7240 


0367 

0000 

0000 


0370 

4407 

JMS I 

7 

0371 

5140 

EPET 

EM 

0 3 7P 

0000 

EEXT 


0 373 

4^67 

JMS I 

GU I AP 

0 774 

440 3 

JMS I 

ME! SP 

0376 

4 64 3 

4543 


0 3 76 

4303 

4303 


0 377 

1 7PP 

1 72? 


0 400 

PPO 6 

2205 


0401 

1401 

1401 


0 4 op 

P4 1 1 

2A1 1 


n /iH3 

1716 

1716 


0 404 

4003 

Ap03 


0 40 6 

1 70^ 

1 705 


0406 

0606 

0606 


0 407 

110 7 

1 103 


O £ 10 

1 106 

1 1 05 


O/Jl i 

1 6P4 

16?A 


0 * 1 p 

407P 

4072 


0 / 1 9 

4000 

4000 


0 / 1 4 

4407 

JMS I 

7 

0 4 1 S 

61 P4 

FPFT 

SUMX2 

0/416 

7 1 3 

FMPY 

SUMY? 

n 4 1 7 

ooop 

SQROOT 

0 4PP 

614 3 

FPUT 

FTEMP1 

0/1P1 

513 5 

FPET 

SIJMXY 

04pP 

4143 

FRI V 

ETEMP1 

04P3 

614 7 

EPIJT 

FTEMP1 

0 4?4 

0000 

EEXT 


n/j pc. 

4406 

JMS I 

6 / 

0 4 P6 

4403 

JMS I 

MFSSP 

P4P7 

4^47 

4 543 


0/i30 

43P4 

4324 


0/i31 

407P 

AO 7? 


O/i 3P 

4000 

4000 


0 433 

4407 

JMS I 

7 

0434 

5143 

EPET 

FT EMPI 

0 436 

0001 

SOUA.PF 

0/i36 

6146 

EPIJT 

ETFMP2 


/MUMPER OE PAIRS 
/CORRELATION. COFEFIENT 


/OUTPUT b 


/ SIJMXY/SQROOTC 
/COR. CO EE. 


/T 


SUMX? SUMYS? 


/COR. COEF. 
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PA?F 


o/*?7 

SI S7 

FGET 

OMF 

r / /'0 

PI 46 

FSUF 

ETEMPP 

0/j41 

OOnp 

SOROOT 

0 44P 

6146 

FPIJT 

FTEMPP /SQROOTC 1-RP) 

O /i /; p 

5140 

FGET 

FN 

O/i 4 /i 

PI 57 

FSUB 

OMF 

0/1/IS 

PI S7 

FSUB 

OME 

n/i/is 

6 140 

FPUT 

FN / N-P 

0 / 1/17 

OOOP 

SOROOT /FOOTCN-P) 

o/iso 

3 

FMPY 

ETEM P1 /R 

O/iSl 

4146 

FRI V 

F TEMP 9 

O/iSP 

0000 

FFXT 

/R SQROOTCN- P) / S0R00TC1-RP) 

0 /IS3 

4406 

JMS I 

6 /OUTPUT T 

O/iS/1 

1 1 IP 

TAD 51 /8 DEC 

O/ISS 

457^ 

JMS I 

SPACED 

O/ISS 

4403 

JMS I 

MESSP /HUH DF : 

0 /! s 7 

P71 1 

?71 1 


0/<6? 

P41 0 

P/ilO 


0 /I si 

4004 

400/1 


0/1 *p 

0640 

06/J0 


0 463 

7P40 

7P40 


0464 

0000 

0000 


OZ;65 

4407 

JMS I 

7 

0466 

51 40 

F?ft 

FM 

0 /' 6 7 

0000 

FFX T 

/ N-P 

0 /i 70 

4 56 7 

JMS I 

0UT4P 

0 /■ 7 1 

4403 

JMS I 

MESSP /Y• = C 

0 /’ 7 ? 

4 S 4 3 

A 5/i 3 


0/173 

4 3 4 3 

4343 


O/ 17/1 

314 7 

3147 


0/i7S 

407 5 

4075 


0476 

40 SO 

ziO 50 


O /177 

OOnp 

0000 


0 soo 

4 40 7 

JMS I 

7 

nsoi 

SI 3 S 

FPFT 

SUMXY 

n SOP 

4 1 P4 

FDI V 

SIJMXP 

0 SO3 

6143 

FPUT 

FTEMP1 

0 SO /I 

0000 

FEXT 

/ SUMXY/SUMXP 

0 SOS 

4406 

JMS I 

6 /CODE OF X 

0 50* 

4 4 0 ? 

JMS I 

MESSP /IX 

0 S07 

SI 30 

5130 


0 si 0 

4040 

4040 


osi 1 

0000 

0000 


0 51? 

4407 

JMS I 

7 

OSI 3 

5143 

FGFT 

FTEMP1 

OSl/i 

31 SI 

FMPY 

M EANX 

0 SI 5 

6143 

FPUT 

FTEMP1 

OSI * 

SI 54 

FGET 1 

MEANY 

OSI 7 

P143 

FSUP 

ETEMPI 

0 spo 

0000 

FEXT 

/MEANY - MEANXSUMXY/SUMXP 

0 SP1 

4406 

JMS I 

6 /OUTPUT INTERCEPT 

0 5HP 

4403 

JMS I 

MESSP /SUM OF SQUARED DEVIATIONS 

O c;p ^ 

4 54 3 

4543 
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PA OF P 


0 SP^I 

A 3 03 

p SOS 

PS1 s 

0 SP^ 

4P1 7 

0 SP 7 

0640 

o s^n 

P3P ] 

p S31 

PSP1 

0S3p 

PPOS 

n S 3 3 

f AAp 

ns3^i 

040 s 

0 S3s 

PM ! 

0 S 3 £ 

np/i 

0 S"7 

111 7 

0 SAP 

1 6P3 

OS/ I 

/107 p 

^ SAP 

40 40 

0 S43 

O' 

n 

OSAA 

hr 

( 

r c / s 

r 1 3 S 

0 SAf 

OOP! 

0 S/J7 

41 PA 

0 SSP 

M 4 3 

OSS! 

si 3p 

0 SSP 

PI 43 

0 SS3 

6 1 4 3 

p SS4 

0000 


4323 
2515 
4017 
06^0 
2321 
2501 
2205 
0440 
0405 
2011 
0124 
13 17 
1023 
4072 
4040 
0000 
. JM 5 I 7 
FOET SUMXY 
SQUAFF 
Fi t V . c rJM X 2 
FPUT FTFMP1 
FGFT SUMY2 
F? UP FTFMF1 
FPUT FTFMP1 
FFXT 


/ SUMY? 


S UM X Y 2 / 5 UM X 2 
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P/>PF 


7 



44PA 

JMS I A /SUMP OF 

DEV. FROM }'■:FGT-F 5 SI ON 

OSSf 

4407 

JMS T MFSSP 

/STANDARD ERROR OF ESTIMATE: 

r 557 

/i 543 

4543 


r f AO 

4 3 P 3 

4 7 p 7 



P/iPl 

P40 1 


P r AO 

1 AO 4 

1 604 


r* s A3 

0 1 " 

01PP 


0 5A4 

0/ 4 A 

0440 


0 5A5 

PSP P 

0 5PP 


ft SAA 

PP1 7 

PP1 7 


0^A7 

Pp/:P 

PP4Q 


0 570 

1 70 A 

1 706 


0 A71 

4005 

4005 


P^7P 

P 7 P 4 

P3P4 


0 673 

1115 

1115 

19 

0S7/i 

0 1 '>k 

01 P4 


r s 7 s 

0 6/ 0 

05 TO 


' - 7 * 

7P4P 

7P4P 


0 57 7 

POPP 

0000 


0 AOP 

4407 

JM S I 7 


OAT 1 

6 1 / 5 

FOFT FTFMP1 


p AP9 

4 1 4P 

FT I V FJ 


PAP'? 

nrr 

SOPOOT 


p Ap4 

POP 

FFX7 / SUhOOT ( C 

SilMY? - SIJMXVP/SUMX?) /(M-P) ) 

0 AOS 

ZjZ' r j a 

JMS I A /S F. FS7 


0 AfiA 

4407 

JMS I MFSSP 

/ S UM ' ) E PRO rue 1 S X r : 

0 AO 7 

4 54 7 

4543 


0 A 1 0 

43P3 

4 3 p 3 


0 A] 1 

PS! S 

P5 1 5 


0 A 1 P 

z n 1 7 

4017 


0 613 

r a zip 

0 A40 


n A 1 / 

pppp 

POPP 


PA 1 A 

1 704 

1 704 


0 A 1 A 

psns 

P503 

# 

PA] 7 

P/)P7 

P4P3 


0 AP° 

40 30 

407p 


0 AP1 

3 1 4 0 

3 1 4p 


p AOP 

7P40 

7P40 


P A ' 7 

0000 

npOp 


0 A O / 

1 1 1 P 

74T SI 


O A 9 * 

4S70 

JMS I SPACEP 


PAPA 

440 7 

JM S I 7 


P AP7 

5135 

FO FT SUMXY 


P A 7 0 

onoo 

FFKT 


PA <1 

44 ! !f- 

JMS I 6 / 5 UMXY 


0 63P 

440 3 

TMS I MFSSP 

/SAMPLE COVARIANCE : 

P A 3 3 

Zt S4 3 

4(143 


P A 3 1 \ 

4 3 p 7 

43P3 


P A 3 S 

01 1 5 

01 1 5 


0 A 3 A 

PO 1 4 

PO 1 4 


0 A 37 

0 540 

0540 


pA/n 

03 1 7 

0317 
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PArv 3 


0 6Z>1 

P601 

0 6 

PP1 1 

0 6/J3 

01 1 6 

0 6/J/i 

030 S 

06/jS 

407P 

0 6 6 

ZjQ/iO 

0 6/i 7 

00 0 0 

0 6 SO 

1 1 1 P 

P6S1 

/: S 7 0 

H6SP 

/i/JP7 

0 6 S3 

SI /'0 

0 6 S /! 

1 1 S7 

06S5 

61/i6 

0 6S6 

S 1 3 S 

0 6S7 

/i 1 4'6 

0 6 60 

0000 

0661 

/•/ 0 6 

0 66 O 

Z;Zip3 

0663 

/iS/,3 

0 66/J 

/i 3 Zi 3 

0 6 6 S 

0000 

0 666 

1113 

0667 

h S 7 0 

0 670 

/t / 

0671 

3000 

0 67P 

1 1 l/i 

0 673 

/iS7 0 

0 6 7/i 

ZiZip3 

0 6 7 S 

31 /is 

0676 

/’3 / 0 

0677 

1 SOS 

0 700 

01 1 6 

0 70 1 

ZJ070 

0 70P 

0000 

0703 

1116 

070/1 

4570 

07 OS 

Zi /j 0 7 

0 706 

51 Si 

0707 

0000 

0710 

/' Zi 0 6 

071 1 

1 1 IP 

0 7 1 P 

ZiS70 

0 713 

ZjZi07 

0 7 1 /i 

51 S/J 

071 S 

0000 

0716 

ZjZj0 6 

0717 

4403 

0 7P0 

/i 5/3 

0701 

43P3 

0 7PP 

PSl 6 

0703 

ZiOl 7 

07P/J 

06/JO 

0 7PS 

P3P 1 


260 1 
221 1 
0116 

0305 
407P 
4040 
0000 
TAP SI 

.IMS I SPACER 
. JM S I 7 
FOET FM 

FAPP OMF / N-1 
FPUT FTFMPP 
FPFT SIJMXY 
FPI V FTFMPP 

FFXT / SUMXY/CN-n 

JMS I 6 /SAMP CO VARIANCE 


• JMS I 

MESS? 

4543 


4343 


0000 


TAP S 

P /P7 TEC 

JMS I 

SPACER 

JMS I 

MESSP 

3000 


TAP S3 /PI PEC 

JMS I 

SPACEP 

JMS I 

vi FS SP 

3145 


4343 


1505 


01 16 


407P 


0000 


TAP S4 /15 DEC 

JMS I 

SPACFP 

JMS I 

7 

FOET 

MEANX 

FFXT 

/MFANX 

JMS I 

6 /X MEAN 

TAD SI /ft DEC 

JMS I 

SPACEP 

JMS I 

7 

EPFT 

MS-ANY 

FFXT 

/MEA.NY 

JMS I 

6 /Y M FAN 

JMS I 

MESSP 

4543 


43P3 


PSl 5 


4017 


0640 


2321 



/CP LF LF LF 


/X 


// CP LF LF M FAN 


/S')M OF SQUARES 
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p A 0 F 3 


0 7P6 

P 60 1 

P501 

07P7 

PPO 6 

PP05 

0730 

P 7 /j 0 

P340 

07^1 

7P/iO 

7P40 

0 7 <P 

/ 10 Zj 0 

4040 

0 73 3 

/jO/jO 

4040 

07^/4 

0000 

0000 

0 7 ^ S 

Zi /4 07 

JMS I 

0776 

51PZi 

FGFT 

0777 

0000 

FFXT 

07^10 

ZiZ'06 

JMS I 

0 7 /' 1 

1 1 IP 

TAP S 

0 74P 

4570 

JMS I 

0 7/i? 

/j/ip7 

JMS I 

0 7/J/i 

61 3P 

F0F7 

n 7/i s 

OOOO 

FFXT 

0 7/i6 

/ 1 / 1 O 6 

JMS I 

0 7/J7 

4403 

JMS I 

0 750 

4543 

4543 

0 761 

4 3 P 3 

43P3 

076 P 

01 1 6 

0115 

0 763 

P01 A 

P01 4 

075/J 

05**0 

0540 

0 7 66 

P601 

P001 

0 7 66 

PP1 1 

PP1 1 

0 7 57 

0116 

0116 

0760 

0305 

0305 

0761 

407 P 

4078 

076P 

Z1O/1O 

4040 

0763 

40/i0 

4040 

076/i 

0000 

0000 


SUMXP 

SUM KP 


SUMY P 

/SAMPLE VAKIANCF 


7 

SUMXP 

/ 

6 / 

1 

SPACFP 

7 

SUMY P 

/ 

6 

M FSSP 
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PARE A 


0 765 

4407 


JMS I 7 

0766 

51P4 


FRET SUMXP 

0767 

4146 


EDIV ETEMP? 

0770 

6143 


FPUT FTEMP1 

0771 

0000 


FEXT /SUMX3/(N-n 

077? 

4406 


JMS I 6 /X VARIANCE 

0 7 73 

111? 


TAD 51 

0 774 

4570 


JMS I SPACEP 

0775 

4407 


JM S I 7 

0776 

51 3? 


FRET SUMY? 

0777 

4146 


EDIV FTEMP3 

1 000 

6146 


EPUT FTFMPP 

1 001 

0000 


EFXT /SUMY 3/ (N- 1 ) 

1 OOP 

4406 


JMS I 6 /Y VARIANCE 

1 003 

4403 


JMS I MESSP /SAMPLE DEVIATION 

1 004 

4543 


4543 

1 005 

4 3? 3 


4333 

1 006 

01 1 5 


0115 

1 007 

P014 


3014 

1010 

0540 


0540 

1011 

0405 


0405 

1 01P 

361 1 


361 1 

1013 

01 P4 


0134 

1014 

1117 


1117 

1 01 5 

1640 


1640 

1 016 

7P40 


7340 

1017 

4040 


4040 

1 OPO 

0000 


0000 

1 0P1 

4407 


JM S I 7 

1 OPP 

^ 1 /: 'i 


FRET ETFMP1 

1 0P3 

OOOP 


SOKOOT 

1 0P4 

oo or 


FEXT / SGPOOTC SUMX3/(N-1> 1 

1 0P5 

4406 


JMS I 6 /X SAMPL DEV 

1 0P6 

11 IP 


TAD SI 

1 0P7 

4570 


JMS I SPACEP 

1 030 

4407 


JMS I 7 

1 031 

5146 


FRET ETEMP3 

1 03P 

000 ? 


SQROOT 

1 033 

OOOO 


FEXT / SOROOTC SUMY 3/ C N- 1 ) 1 

1 034 

4406 


JMS I 6 /Y SAMP DEV 

1 03 5 

4403 


JMS I MESSP 

1 036 

4343 


4343 

1 037 

4343 


4343 

1 040 

4343 


4343 

1 041 

434 3 


4343 

1 04? 

4300 


4300 

1 043 

1066 


TAP SW 

1 044 

7650 


SNA CL A 

1 04 5 

5571 


J V P I STARTP 

1 046 

5647 


JMP I BNP 

1 047 

0P5 1 

PM P, 

BN 

1 050 

0000 

TOTAL, 

0 
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PAGE 

1 051 

1 05P 

1 053 

1 05A 

1 055 

1 056 

1 057 

1 060 

1 0V1 

1 06? 

1 063 

1 06 A 

1 065 

1 066 

1 067 

1 070 

1 071 

1 07? 

1 073 

1 07 A 

1 075 

1 076 

1 077 

1 100 

1 101 

1 1 Op 

1 103 

1 10A 

1 105 

1 ior- 

1 107 

1110 

1111 

111? 

1113 

1 1 1 A 

1115 

1116 

1117 

1 1?0 

1 1P1 

1 1 PP 

1 1P3 

1 1P6 

1 1 P 5 

1 1 P6 

1 1 P7 

1 130 

1131 

1 1 3P 

1 133 

1 1 3* 

1135 


AA07 
1 1 ?7 
61P7 
5163 
1 1 PI 
6 1 P 1 
5057 
1 1 AO 
61 AO 
0000 
5650 
0000 
A6Q7 
?1 5A 
61 A6 
0001 
1 1 30 
61 3P 
51 A3 
PI 51 
61 A3 
0001 
1 1 P6 
61 PA 
51 A3 
31 A6 
1135 
61 3 * 
0000 
56GZ' 
0000 
1 307 
1063 
33 A A 
1 A1P 
1 3 A 5 
7A50 
5337 
1065 
30 A A 
1-61 P 
30 A 5 
1 61 P 
3065 
AA07 
61 A3 
0000 
1 A1 A 
30 A A 
1Z1Z 

30 A 5 
1 A 1 A 
3065 


SUM SO. 


PX YE » 


JMS I 7 
FADD SUMY 


SUMY /SUM 

FTEMP1 

SUMX 


SUMX 

OMF 

FN 

FN 


FPUT 
FOET 
FADD 
FPUT 
FGFT 
FADD 
FPUT 
FEXT 

JMP I TOTAL 
0 

JM S I 7 
FSUF MFANY 
FPUT FTEMPP 
SQUARE 
FADD SUMY? 

FPUT SUMY? /SUM 
FGFT FTEMP1 
FSUB MEANX 
FPUT FTEMP1 
SQUARE 
FADD SUMXP 
FPUT SUMXP /SUM 
FGFT FTEMP1 
FMPY FTEMPP 
FADD SUMXY 
FPUT SUMXY /SUM 
FEXT 


OF Y * S 


/SUM OF X’S 


/NO OF PAIRS 


OF Y'S SQUARED 


OF X’S SQUARED 


OF XY’S 


.JMP 

I SUM SO 

0 


/READ AN X P A 

TAD 

RXYP 


TAD 

CP 


DCA 

BEND 


TAD 

I 1P 


TAD 

MPOL 


SNA 



JMP 

CHK 

/END OF BLOCK 

TAD 

DOL 

/RESTORE 

DCA 

AA 


TAD 

I 1? 


DCA 

A 5 


TAD 

I IP 


DCA 

6 6 


JMS 

I 7 



Y DATA POINT 


FPUT 

FEXT 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 


FTEMPI 

I 1A 
A A 

I 16 
A5 

I 1A 
A6 


/ v DATA POINT 


loo 






PA OF 4 


1 1 36 

5707 


1 137 

1414 

CHK, 

1 140 

1 345 


1 141 

7640 


1 14? 

5566 


1 143 

5744 


1 144 

0000 

FFN D» 

1 1 45 

7534 

MDOL, 

1 145 

4403 

FPPIN 

1 147 

4543 


1 1 50 

2 51 6 


1 1 51 

200 1 


1 1 5? 

1 12? 


1 1 53 

0504 


1 1 54 

4004 


1 1 55 

0124 


1 1 56 

0145 


1 1 57 

4 5 /• T 


1 1 60 

43 on 


1 161 

5571 


1 1 6p 

0000 

SFT, 

1 1 63 

1 106 


1 164 

3010 


1 166 

1073 


1 1 66 

1106 


1 1 67 

301 1 


1 1 70 

1076 


1171 

3111 


1 1 72 

5762 



JMP I RXYP 
TAD I 14 
TAD MPOL 
SZA CL A 
JMP I ERRINP 
JMP I BEND 
0 

-P44 

JMS I MESSP 
4543 
2516 
2001 
112 ? 

0504 

4004 

0124 

0143 

4343 

4300 

JMP I STARTP 

0 / SFT IND 

TAD FTAFLE 

DC A 10 /X INDEX 

TAD NP 

TAT PTABLE 

DCA 11 /Y INDEX 

TAD NXB 

DCA CNTR 

JMP I SFT 


/X, Y ' S DONT MATCH 


/UNPAIRED DATA 


CES FOR FFADINC TAPE 
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1 200 
1 201 
1 202 
1 203 
1 204 
1 205 
1 206 
1 207 
1 210 
1 21 1 
1 212 
1 21 3 
1 214 
1 215 
1 216 
1 21 7 
1 220 
1 221 
1 222 
1 223 
1 224 
1 225 
1 226 
1 ^27 
1 230 
1 231 
1 232 
1 233 
1 23 4 
1 235 
1 236 
1 237 
1 240 
1 241 
1 242 
1 243 
1 244 
1 245 
1 246 
1 247 
1 250 
1 251 
1 252 
1 253 
1 254 
1 255 
1 256 
1 257 
1 260 
1 261 
1 262 


* 1 200 


0000 

BLO AD* 

0 

/SUBROUTINE TO SET THE BLOCK 

3073 


DCA 

NB 

3064 


DCA 

SETS W 

4405 


JMS 

I 5 

1060 


TAD 

60 

7650 


SNA 

CL A 

5240 


JMP 

TERM /INVALID* CHECK TERMINATOR 

4404 


JMS 

I UNFLP 

3077 


DCA 

TEMPI 

1077 


TAD 

TEMPI 

3410 


DCA 

I 10 /DEPOSIT IN BLOCK TABLE 

2073 


I SZ 

NB /COUNT BLOCKS 

1057 


TAD 

57 

1101 


TAD 

MCOM 

7640 


SZA 

CL A 

5203 


JMP 

BLOAD* 3 /NOT A COMMA* GET 

4405 


JMS 

I 5 /COMMA* SET BTABLE 

1060 


TAD 

60 

7650 


SNA 

CL A 

5220 


JMP 

.-3 /INVALID* TRY AGAIN 

4404 


JMS 

I UNFLP 

7041 


CIA 


3100 


DCA 

TEMP2 /MINUS 2ND BLOCK # 

1077 


TAD 

TEMPI 

1100 


TAD 

TEMP2 

7700 


SMA 

CL A 

5203 


JMP 

BLOAD* 3 /SET UP* GET NEXT 

2077 


I SZ 

TEMPI 

1077 


TAD 

TEMPI 

3410 


DCA 

I 10 /DEPOSIT IN BTABLE 

2073 


I SZ 

NB /COUNT BLOCKS 

5227 


JMP 

.-10 

1057 

TERM* 

TAD 

57 

1102 


TAD 

MCC 

7650 


SNA 

CL A 

5503 


JMP 

I TAPE 

1057 


TAD 

57 

1067 


TAD 

MFORM 

7650 


SNA 

CL A 

5600 


JMP 

I BLOAD /END OF TABLE 

1057 


TAD 

57 

1256 


TAD 

MA 

7640 


SZA 

CL A 

5203 


JMP 

BLOAD* 3 /NOT END OF TABLE 

2064 


I SZ 

SETSW 

5600 


JMP 

I BLOAD 

7477 

MA* 

-301 

0000 

RXYT* 

0 


1410 


TAD 

I 10 

3264 


DCA 

X BLOCK 

4402 


JMS 

I RWTAPE 


GET NEXT BLOCK 
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PAGF 5 


# 


1 ?6 3 

1P01 


1P01 


1 P64 

0000 

XPLOCK* 

0 


1 P^S 

POOO 


POOO 

/READ X DATA IMTO 

1 ?66 

1066 


TAD SW 


1 P67 

76A0 


S Z A CL A 


1 P70 

5P76 


JMP . + 6 

/DO MOT RERRANGE 

1 P71 

1 07P 


TAD XL! 

/X LINE TABLE 

1 212 

3013 


DCA 13 


1 P73 

1 10A 


TAD XDATA 


1 P7A 

301 p 


DCA IP 


1 P7 5 

A3P1 


JMS ADAT 

/ARRANGE DATA 

1 P76 

1 A1 1 


TAD I 1 1 


1 2.11 

330? 


DCA YPLOCK 


1 300 

440? 


JMS I RWTAPF 

1 301 

1P01 


1P01 


1 30P 

0000 

YBLOCK, 

0 


1 303 

22.00 


PPOO 

/READ YDATA INTO 

1 3PA 

1066 


TAD Slv 


1 306 

76A0 


SZA CL A 


1 306 

531 A 


JMP .+6 


1 307 

1075 


TAD YLT 

/Y LIMF TABLF 

1310 

3013 


DCA 13 


1311 

1 1 05 


TAD YPATA 


1 TIP 

301? 


DCA 1 P 


1313 

A3P 1 


JMS ADAT 

/ARRANGE DATA 

1 31 A 

1 10A 


TAD XDATA 


1 31 S 

701 ? 


DCA IP 


1 31 A 

110 = 


TAD YDATA 


1317 

301 A 


DCA 1A 


1 3^0 

5657 


JMP I RXYT 


1 3P1 

0000 

4P A T* 

0 


1 322 

1 07A 


TAD MXL 

/MINUS * OF x lin: 

1 3P3 

3110 


DCA CNT 


1 3?/ 

101 P 


TAD IP 


1 3? 5 

3077 


DCA TFMP1 


1 3P6 

1A 1 3 


TAD I 13 


1 321 

1 1 07 


TAD Ml 


1 330 

7AP6 


7AP5 

/MUY 

1 T7 1 

0003 


0003 


1 33P 

7701 


7701 

/OLA MQA 

1 333 

1077 


TAD TFMP1 

/3CLINF-D+X OR Y 

1 3 3 A 

3015 


DCA 15 


1 335 

i Am 


TAD I 15 


1 336 

3A1? 


DCA I IP 


1 337 

1 A1 6 


TAD I 1 5 


1 3 AO 

3A1P 


DCA I IP 


1 3A1 

1 A1 5 


TAD I 15 


1 3AP 

3 A 1 P 


DCA I 1P 


1 3 A.3 

PI 10 


I SZ CM T 


1 3 A A 

53 P 6 


JMP ADAT+5 


1 3A5 

1065 


TAD DOL 


1 3A6 

3Al p 


DCA I 1P 


1 3/7 

57P1 


JMP I ADAT 



POOO 


data 


2200 


DATA 
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PA'-F 5 


i /ton 

1 401 
1 402 
1 403 
1 404 
1 40 5 
1 406 
1 407 

1410 

1411 
1 41 p> 
1413 
1 41/j 

1415 

1416 

1417 

1 4P0 

1 4P1 

1 4 22 
1 4P3 
1 424 
1 425 
1 426 
1 4P7 
1 430 
1 4 < 1 

1 472 

1 433 
1 434 
1 43 S 


OOOn 

-k i zipn 

0 UT4, 

0 

4407 


JM S I 7 

1 1 62 


FADD PT1 

0000 


FEXT 

1221 


TAD C4 

3062 


DC A 62 

3617 


DCA I FP1 

3620 


DCA I FP2 

4406 


JM S I 6 

1222 


TAD C253 

3617 


DCA I FP1 

1063 


TAD C2 

36?0 


DCA I FP2 

7 06p 


DCA 62 

5600 


JMP I 0UT4 

7327 

FP1» 

7327 

7330 

FP2* 

7330 

0004 

C4» 

4 

02 53 

CP 53* 

253 

0000 

SPACF* 

0 

3111 


DCA CNTR 

123 6 


TAT C240 

6041 


TSF 

52P6 


JMP . - 1 

6046 


TLS 

7200 


CL A 

21 1 1 


I S? CM TR 

5225 


JMP .-6 

5623 


JMP I SPACE 

np/jo 

C 2 4 0» 

240 


/OUTPUT MAX OF 4 DIGITS* 


/RFSTORF FLOATING POINT 


NO SIGN 
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*62 


0 062 

0000 


0 

0063 

0002 

C2» 

2 

0 064 

0000 

SETSW* 

0 

0065 

0244 

DOL* 

244 

0066 

0000 

sw* 

0 

0 067 

7564 

MFORM* 

-214 

0070 

7447 

MY* 

-331 

0071 

7462 

MN* 

-316 

0 072 

2400 

XL T* 

2400 

0 073 

0000 

MB, 

0 

0 074 

0000 

MXL* 

0 

0075 

2500 

YLT* 

2500 

0076 

0000 

MXB* 

0 

0077 

0000 

TEMPI* 

0 

0 100 

0000 

TEMP2* 

0 

0 101 

7524 

MCOM* 

-254 

0 102 

7575 

MCC* 

-203 

0 103 

7600 

TAPE* 

7600 

0 104 

1777 

XDATA* 

1777 

0 105 

2177 

YDATA, 

2177 

0 106 

2600 

B TABLE* 

2600 

0 107 

7777 

Ml* 

- 1 

0 110 

0000 

CM T* 

0 

0 111 

0000 

CNTR* 

0 

0 112 

7770 

SI* 

- 10 

0 113 

7745 

S2, 

-33 

0114 

7753 

S3* 

-25 

0 115 

7761 

S4* 

- 1 7 

0 116 

0000 



0 117 

0000 



0 120 

0000 

ZERO* 

o 

w* 

O 

w# 

o 

0 121 

0000 



0 122 

0000 



0 123 

0000 

SUMX* 

o 

o 

o 

0 124 

0000 



0 125 

0000 



0 126 

0000 

SUMX2* 

o; o; o 

0 127 

0000 



0 130 

0000 



0 131 

0000 

SUMY* 

O 

o 

w* 

o 

0 132 

0000 



0 133 

0000 



0 134 

0000 

SUMY2* 

o; o; o 

0 135 

0000 



0 136 

0000 



0 137 

0000 

SUMXY* 

0J 0J 0 

0 140 

0000 



0 141 

0000 



0 142 

0000 

FM* 

O 

w* 

O 

o 

0 143 

0000 



0 144 

0000 
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ni/'S 

0000 

FTFMP1, 

0 1 46 

0000 


0 1 /■ 7 

0000 


0 1 50 

0000 

FTFMPP* 

0 161 

0000 


0 1 5^ 

0000 


0 1 S3 

0000 

mfanx. 

0 1 54 

0000 


0 1 55 

0000 


0 1 S6 

0000 

• V ' C 'ANY> 

0 1 S7 

0001 


0 160 

POOO 


0 161 

0000 

ONF, 

0 1 62 

777 S 


0 163 

314* 


0 164 

31^ 

PT 1, 

0 1 65 

ipoo 

PLOarp, 

0 1 66 

1 1 46 

frpinp. 

0 1 6? 

1400 

OUT Ap, 

0 170 

1 4 p 3 

cperrp, 

0 171 

OP 00 

STARTP, 

0 1 IP 

1 16P 

SFTP, 

0 1 73 

1 P 57 

PXYT P, 

0 1 74 

1 1 07 

PXYPP, 

0 1 75 

1050 

TO T ALP, 

0 1 76 

1 0*4 

" ■'* SOP, 
*7341 

7 341 

0000 


7 34P 

0000 

MFSSP= 3 


UNFLP=4 


o; 05 P 


o; 05 o 


05 o; 0 


o; o; o 


15 P00P50 


77755 31465 3146 

PL OPT 

ERR IN 

0UT4 

SPACE 

START 

TFT 

PXYT 

RXYP 

TO 1AL 

S()M c q 

0 

0 /CLFAR THE CR 


RWTAPF=P 
S0UARF= 1 
SOROOT =P 


AN I LF IN 


FLOATING POINT 
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A DAT 

1321 

B EM D 

1144 

BLOAD 

1200 

BLOADP 

0165 

BM 

0251 

BMP 

1047 

B TABLE 

0106 

CHK 

1 137 

CMT 

01 10 

CMTR 

01 1 1 

C 2 

0063 

C 240 

1435 

C 253 

1422 

C 4 

1421 

DOL 

0065 

ERF.IN 

1 146 

ERRIMP 

0166 

FN 

0140 

F PI 

1417 

FP2 

1420 

F TEMPI 

0143 

FTEMP2 

0146 

M A 

1256 

M CC 

0102 

M COM 

0101 

M DOL 

1145 

M EAMX 

0151 

M EAMY 

0154 

M ESSP 

0003 

M FORM 

0067 

MM 

0071 

MY 

0070 

M 1 

0107 

M B 

0073 

NXB 

0076 

M XL 

0074 

ONE 

0157 

0 UT4 

1400 

0 UT4P 

0167 

PT1 

0162 

R WTAPE 

0002 

RXYB 

1107 

RXYBP 

0174 

RXYT 

1257 

RXYTP 

0173 

S ET 

1162 

SETP 

0172 

SETSW 

0064 

S PACE 

1423 

SPACEP 

0170 

SOROOT 

0002 

S QUARE 

0001 
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START 

0200 

S TARTP 

0171 

SUMSQ 

1064 

SUMSQP 

0176 

SUMX 

0121 

S IMXY 

0135 

SUMX2 

0124 

SUMY 

0127 

S UMY2 

0132 

SW 

0066 

S 1 

0112 

S 2 

0113 

S3 

01 14 

S4 

01 1 5 

TAPE 

0103 

TEMPI 

0077 

TEMP2 

0100 

TERM 

1240 

TOTAL 

1050 

TOTALP 

0175 

UNFLP 

0004 

X BLOCK 

1264 

X DATA 

0104 

XLT 

0072 

Y BLOCK 

1302 

Y DATA 

0105 

YLT 

0075 

Z ERO 

0116 
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LCOVAR * LOGARITHMIC COVAR 


PURPOSE: This program is a semi-logarithmic version of COVAR. 

y values are converted to log £ y before calculation so that each 
"Y" in the output format means log £ y• This program is useful for 
semi-logarithmic regression analysis. 

OPERATION: Operation of LCOVAR is the same as that of COVAR. 

DESCRIPTION: This program performs a linear correlation between 

x and log e y. The subroutine of COVAR to read the x and y buffers, 
RXYB, has been altered to convert y to log £ y. Since this program 
is almost identical to COVAR, only the parts of the listing which 
differ from COVAR are given. 
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L COVAR 


READ X LINES : _A_ 

X BLOCK NUMBERS : 60* 64 (CTRL/FORM) 

Y BLOCK NUMBERS : AO* 43 (CTRL/FORM) 
UNPAIRED DATA 


/Read all of both x and y block #'s 


/Number of x and y block #'s not equal 


READ X LINES : _A_ 

X BLOCK NUMBERS : 60* 63 (CTRL/FORM) 
Y BLOCK NUMBERS : 41*44 (CTRL/FORM) 


/Read all of both x and y block #*s 


N UMBER OF PAIRS S + 0. 6000000E+ 02 

CORRELATION COEFFICIENT : + 0. 9 3709 07E+00 

T : +0. 204438 7E+02 WITH DF : + 0. 5800000E+02 


Y * = C + 0. 1668 171E+00)X + 0. 53648 16E+00 

SIM OF SQUARED DEVIATIONS : + 0. 401 398 1 E+01 

STANDARD ERROR OF ESTIMATE : + 0. 26307 1 3E+ 00 
SUM OF PRODUCTS XY : + 0. 1 7339 33E+03 

SAMPLE COVARIANCE : + 0. 29 388 70E+01 


X Y 


MEAN : 


+ 0. 79 3999 4E+ 01 

+ 0. 18 61009E+01 

SUM OF 

SQUARES : 

+ 0. 1039 42 1 E+ 04 

+ 0. 329 389 6E+ 02 

SAMPLE 

VARIANCE : 

+ 0. 1761 730E+ 02 

+ 0. 558 28 76E+ 00 

SAMPLE 

DEVIATION : 

+ 0. 419 729 7E+ 01 

+ 0. 74718 64E+ 00 


/Return control to tape Monitor 
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X BLOCK NUMBERS 
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n 765 
0 766 
0 767 
0 . 

0 / 71 
0772 
0773 
0 774 
0 775 
0 776 
0 777 
1 000 
1 001 
1 002 
1 003 
1 004 
1 005 
1 006 
1 007 
1 010 
101 1 
1 012 
1 013 
1 014 
1015 
1 01 6 
1017 
1 020 
1 021 
1 022 
1 023 
1 024 
1 02 5 
1 026 
1 027 
1 030 
1 031 
1 032 
1 033 
1 034 
1 03 5 
1 036 
1 037 
1 040 
1 04 1 
1 042 
1 043 
1 044 
1 04 5 
1 046 
1 047 
1 050 


4407 

5124 

4146 

6143 

0000 

4406 
1112 
4570 

4407 
5132 
4146 
6146 
0000 

4406 
4403 
4543 
4323 
0115 
2014 
0540 
0405 
261 1 
0124 
1117 
1 640 
7240 
4040 
0000 

4407 
5143 
0002 
0000 

4406 
1112 
4570 

4407 
5146 
0002 
0000 
4406 
4403 
4343 
4343 
4343 
4343 
4300 
1066 
7 6 52 
5571 
5647 

0251 BMP, 
0000 TOTAL, 


JMS I 7 
FGET SUMX2 
FDI V FTEMP2 
FPUT FTEMP1 

FEXT / SUMX 2/ ( N- 1 ) 

JMS I 6 /X VARIANCE 

TAD SI 

JMS I SPACEP 
JMS I 7 
FGET SUMY2 
FDI V FTEMP2 
FPUT FTEMP2 

FEXT /SUMY2/CN-1) 

JMS I 6 /Y VARIANCE 

JMS I MESSP /SAMPLE DEVIATION : 

4543 
4323 
01 15 
2014 
0540 
0405 
261 1 
0124 
1117 
1640 
7240 
4040 
0000 
JMS I 7 
FGET FTEMP1 
SQROOT 

FEXT / SQROOTC SUMX2/CN- 1) ) 

JMS I 6 /X SAM PL DEV 
TAD SI 

JMS I SPACEP 
JMS I 7 
EGET ETEMP2 
SQROOT 

FFXT /SQROOTC SUMY 2/CN- 1 ) ) 

JMS I 6 /Y SAMP DEV 
JMS I MESSP 
4343 
4343 
4343 
4343 
4300 
TAD SW 
SNA CL A 
JMP I STARTP 
JMP I BNP 
BN 
0 
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1 051 
1 05 ? 
1 053 
1 054 
1 055 
1 056 
1 057 
1 060 
1 061 
1 06 ? 
1 063 
1 064 
1 065 
1 066 
1 067 
1 070 
1 071 
1 07 ? 
1 073 
1 074 
1 075 
1 076 
1 077 
1 100 
1101 
1 10 ? 
1 103 
1 104 

I 105 
1 106 
1107 
1110 

II 1 1 
111? 

1113 

1114 

1115 

1116 
1 117 
1 1P0 
1 1?1 
1 1 ?? 
1 1 ?3 
1 1 ?4 
1 1 ? 5 
1 1 ?6 
1 1 ?7 
1 130 
1131 
1 13 ? 
1 133 
1 134 
1 135 


4407 

JMS I 7 

1 1P7 

FADD SUMY 

61 ?7 

FPUT SUMY - 

5143 

FGET FTEMP1 

1 1 ? 1 

FADD SUMX 

61 ? 1 

FPUT SUMX . 

5157 

FGET OME 

1140 

FADD FM 

6140 

FPUT FM 

0000 

FEXT 

5650 

JMP I TOTAL 

0000 SUM SQ* 

0 

4407 

JMS I 7 

?1 54 

FSUB MEAMY 

6146 

FPUT FTEMP2 

0001 

SQUARE 

113? 

FADD SUMY2 

613? 

FPUT SUMY2 . 

5143 

FGFT FTEMP1 

?1 51 

FSUB MEAMX 

6143 

FPUT FTEMP1 

0001 

SQUARE 

1 1?4 

FADD SUMX2 

61 ?4 

FPUT SUMX2 

5143 

FGFT FTEMP1 

3146 

F^PY FTEMP2 

1 1 35 

FADD SUMXY 

6135 

FPUT SUMXY 

0000 

FEXT 

5664 

JMP I SUMSQ 

0000 RXYB. 

0 

1307 

TAD RXYB 

1063 

TAD C2 

3347 

DC A BEMD 

141? 

TAD I 12 

1350 

TAD MDOL 

7450 

SNA 

534? 

JM P CHK 

1065 

TAD DOL 

3044 

DCA 44 

1412 

TAD I 12 

3045 

DCA 45 

1412 

TAD I 12 

3046 

DCA 46 

4407 

JMS I 7 

6143 9 

FPUT FTEMP1 

0000 

FEXT 

1414 

TAD I 14 

3044 

DCA 44 

1414 

TAD I 14 

3045 

DCA 45 

1414 

TAD I 14 

3046 

DCA 46 


/SUM OF Y'S 


/SUM OF X'S 


/MO OF PAIRS 


/SUM OF Y’S SQUARED 


/SUM OF X'S SQUARED 


/SUM OF XY'S 


/READ AM X A A Y DATA POINT 


/END OF BLOCK 
/RESTORE 


/ X DATA POIMT 
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PAGE 

1 136 

A 

AA07 


JMS I 7 /CONVERT Y TO LNCY) 

1 137 

0007 


0007 /FLOG 

1 1 AO 

0000 


FEXT 

1 1 A 1 

5707 


JMP I RXYB 

1 1A2 

1 A1 A 

CHK, 

TAD I 1A 

1 1 A3 

1350 


TAD MDOL 

11AA 

76A0 


SZA CLA 

Q 1 A5 

5566 


JMP I ERRINP /X, Y ' S DONT MATCH 

1 1 A6 

57A7 


JMP I BEND 

1 1A7 

0000 

BEND, 

0 

1 150 

753A 

MDOL, 

-2AA 

1 1 51 

A AO 3 

ERRIN, 

JMS I MESSP /UNPAIRED DATA 

1 1 52 

A5A3 


A5A3 

1 1 53 

2516 


2516 

1 1 5A 

2001 


2001 

1 1 55 

1122 


1 122 

1 156 

050A 


050A 

1 157 

AOOA 


AOOA 

1 160 

012A 


012A 

1 161 

01 A3 


01 A3 

1 162 

A3A3 


A3A3 

1 163 

A300 


A300 

1 1 6A 

5571 


JMP I STARTP 

1 165 

0000 

SET, 

0 /SET INDICES FOR READING TAPE 

1 1 66 

1 106 


TAD BTABLE 

1 167 

3010 


DCA 10 /X INDEX 

1 170 

1073 


TAD NB 

1 171 

1106 


TAD BTABLE 

11 72 

301 1 


DCA 11 /Y INDEX 

1 173 

1076 


TAD NXB 

1 17A 

3111 


DCA CNTR 

1 175 

5765 


JMP I SET 
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PAGE 

1 200 

1 201 

1 202 

1203 

1 204 

1 205 

1 206 

1 207 

1 21 0 

1 21 1 

1212 

1213 

1 214 

1215 

1 216 

1 217 

1 220 

1 221 

1 222 

1 223 

1 224 

1 225 

1 226 

1 227 

1 230 

1231 

1 232 

1 233 

1 234 

1 235 

1 236 

1 23 7 

1 240 

1 241 

1 242 

1 243 

1 244 

1 245 

1 246 

1 247 

1250 

1 251 

1 252 

1 253 

1 254 

1255 

1 256 

1 257 

1 260 

1 261 

1 262 


5 


♦ 1200 
0000 BLOAD, 
3073 
3064 
4405 
1060 
7650 
5240 

4404 
3077 
1077 
3410 
2073 
1057 
1101 
7640 
5203 

4405 
1060 
7650 
5220 
4404 
7041 
3100 
1077 
1100 
7700 
5203 
2077 
1077 
3410 
2073 
5227 

1057 TERM, 
1102 
7650 
5503 
1057 
1067 
7650 
5600 
1057 
1256 
7640 
5203 
2064 
5600 

7477 MA, 

0000 RXYT, 

1410 

3264 

4402 


/INVALID, CHECK TERMINATOR 


/DEPOSIT IN BLOCK TABLE 
/COUNT BLOCKS 


0 /SUBROUTINE TO SET THE BLOCK TABLE 

DCA NB 
DCA SETSW 
JMS I 5 
TAD 60 
SNA CLA 
JMP TERM 
JMS I UNFLP 
DCA TEMPI 
TAD TEMPI 
DCA I 10 
ISZ NB 
TAD 57 

TAD MCOM d 

SZA CLA 

JMP BLOAD+3 /NOT A COMMA, GET NEXT BLOCK 

JMS I 5 /COMMA, SET BTABLE 
TAD 60 
SNA CLA 

JMP .-3 /INVALID, TRY AGAIN 

JMS I UNFLP 

CIA 

DCA TEMP2 /MINUS 2ND BLOCK # 

TAD TEMPI 
TAD TEMP2 
SMA CLA 
JMP BLOAD+3 
ISZ TEMPI 
TAD TEMPI 
DCA I 10 
ISZ NB 
JMP .-10 
TAD 57 
TAD MCC 
SNA CLA 
JMP I TAPE 
TAD 57 
TAD MEORM 
SNA CLA 
JMP I BLOAD 
TAD 57 
TAD MA 
SZA CLA 
JMP BLOAD+3 
ISZ SETSW 
JMP I BLOAD 
-301 
0 

TAD I 10 
DCA XBLOCK 
JMS I RWTAPE 


/SET UP, GET NEXT # 


/DEPOSIT IN BTABLE 
/COUNT BLOCKS 


/END OF TABLE 


/NOT END OF TABLE 
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5 

1201 

0000 

2000 

1066 

7640 

5276 

1072 

3013 

1104 

3012 

4321 

141 1 

3302 

4402 

1201 

0000 

2200 

1066 

7640 

5314 

1075 

3013 

1105 

3012 

4321 

1104 

3012 

1105 

3014 

5657 

0000 

1074 

3110 

1012 

3077 

1413 

1107 

7425 

0003 

7701 

1077 

3015 

1415 

3412 

1415 

3412 

1415 

3412 

2110 

5326 

1065 

3412 

5721 


XBLOCK, 


YBLOCKj 


ADAT* 


1201 

0 

2000 


/READ X DATA INTO 2000 


TAD 

SW 

SZA 

CLA 

JMP 

• + 6 

TAD 

XLT 

DCA 

13 

TAD 

XDATA 

DCA 

12 

JMS 

ADAT 

TAD 

I 1 1 

DCA 

YBLOCK 

JMS 

I RWTA] 

1201 

0 


2200 

TAD 

SW 

SZA 

CLA 

JMP 

• + 6 

TAD 

YLT 

DCA 

13 

TAD 

YDATA 

DCA 

12 

JMS 

ADAT 

TAD 

XDATA 

DCA 

12 

TAD 

YDATA 

DCA 

14 

JMP 

I RXYT 

0 


TAD 

NXL 

DCA 

CNT 

TAD 

12 

DCA 

TEMPI 

TAD 

I 13 

TAD 

Ml 

7425 

0003 

7701 


TAD 

TEMPI 

DCA 

1 5 

TAD 

I 15 

DCA 

I 12 

TAD 

I 15 

DCA 

I 12 

TAD 

I 15 

DCA 

I 12 

I SZ 

CNT 

JMP 

ADAT+ 5 

TAD 

DOL 

DCA 

I 12 

JMP 

I ADAT 


/DO NOT 
/X LINE 


RERRANGE DATA 
TABLE 


/ARRANGE DATA 


/READ YDATA INTO 2200 


/Y LINE TABLE 


/ARRANGE DATA 


/MINUS # OF X LINES 


/MUY 

/CLA & MQA 
/3CLINE- 1)+X 


OR Y DATA 
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PAGE 

1 350 

1 351 

1 352 

1353 

1 354 

1 355 

1 356 

1 357 

1 360 

1 361 

1 362 

1 363 

1 364 

1365 


5 


0000 

0 UT4* 

0 

/REVISED FROM CO VAR 

4406 


JMS 

I 6 

5750 


JMP 

I 0UT4 

0000 

SPACE* 

0 


31 1 1 


DCA 

CNTR 

1365 


TAD 

C240 

6041 


TSF 


5356 


JMP 

1 

6046 


TLS 


7200 


CL A 


21 1 1 


I SZ 

CNTR 

5355 


JMP 

• - 6 

5753 


JMP 

I SPACE 

0240 

C240* 

240 
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TPAIR - T TEST, PAIRED DATA 


PURPOSE: This program performs a paired T test on data files 

stored on DECtape data tape. The input consists of paired files 
x and y data. TPAIR has the following output : 

A. Mean difference 

B. Standard deviation of difference 

C. Standard error of mean difference 

D. T value 

E. Degrees of freedom 


OPERATION: When TPAIR is called, it will type "READ X LINES : ", 

The user will type line numbers of x data to be operated on and 
terminate line input with "CTRL/FORM". If all lines, complete data 
blocks, are to be used for both x and y Inputs the user may type "A" 
for all. The program will ask for "X BLOCK NUMBERS : ", "READ Y LINES 
and "Y BLOCK NUMBERS : ". In each case, the user supplies block and 
line numbers and terminates input with "CTRL/FORM". Data input should 
be paired. The first x data point is paired with the first y data 
point and data blocks are read in pairs by the program so that the 
number of x lines to be read must equal the number of y lines and the 
number of x blocks must equal the number of y blocks. Unpaired data 
input will cause the program to type "UNPAIRED DATA " and return to 
the beginning. After the input of y block numbers, the program will 
proceed through calculation and output and return to "READ X LINES : " 
unless this request has previously been answered by "A" in which case 
the program will start over at "X BLOCK NUMBERS : ". 


DESCRIPTION: TPAIR will accommodate data tapes of standard (129 *q) 

or shorter block length. During a single pass of the data tape the 
sum of the pair differences, and the sum of the pair differences 
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TPAIR - T TEST, PAIRED DATA (continued) 

squared are computed and the number of x,y pairs are counted. The 
program reads a block of x data and a block of y data and then 
proceeds to compute using the first x point and the first y point 
as a pair. 

TPAIR uses the following calculations: 

A. Number of pairs * N 

B. Difference ■ x - y * D 

C. Mean difference - — ~ y) < 

D. Standard deviation of difference 

E. Standard error of mean difference 

5 _ 

f. t - I t d 2 - P~ 

t JL icr- 

G. Degrees of freedom - N - 1 
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TPAIRjf 


/Call program 


READ X LIMES • _A_ /Read all of both x and y block #'s 

X BLOCK NUMBERS : 60 63 (CTRL/FORM) 

Y BLOCK NUMBERS : 61 64 (CTRL/FORM) 

MEAN DIFFERENCE : - 0. 2666667E-01 
STD DEVIATION OF DIFFERENCE : +0. 1842702E+ 00 
STD ERROR OF MEAN DIFFERENCE S + 0. 3 4218 1 3E- 0 1 
T : -0.779 3140E+ 00 WITH D F : 29 


X BLOCK NUMBERS : 60*64 /Read all of both x and y block #'s 

Y BLOCK NUMBERS : 40*43 41 

MEAN DIFFERENCE : - 0. 2399998 E- 01 

STD DEVIATION OF DIFFERENCE : + 0. 34208 75E+ 00 

STD ERROR OF MEAN DIFFERENCE : + 0. 39 7668 7E- 0 1 

T : -0. 6035169E+00 WITH D F : 14 


X BLOCK NUMBERS : 60 /Amount of data In block #'s 10 and 60 

/Not equal 

Y BLOCK NUMBERS : 10 
UNPAIRED DATA 


X BLOCK NUMBERS : *C 


/Return control to tape Monitor 
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PAGE 

0200 

0201 

0 202 

0203 

0 204 

0205 

0206 

0207 

0210 

021 1 

0212 

0213 

0214 

0215 

0216 

0217 

0220 

0221 

0222 

0223 

0 224 

0225 

0226 

0227 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0240 

0241 

0 242 

0243 

0244 

0245 

0 246 

0247 

0250 

0251 

0 252 

0253 

0254 

0255 


1 



/TPAIR, 

PAIRED T TEST. MOUNT DATA TAPE 


/0M UNIT 

#1. TERMINATE LINE OR BLOCK #' S 


/BY CTRL 

-FORM. TO READ COMPLETE BLOCKS 


/RESPOND 

TO "READ X LINES : " WITH "A" 


/X DATA 
* 200 

IS PAIRED IN ORDER WITH Y DATA 

6046 

START* 

TLS 

4403 


JMS I MESSP /READ X LINES s 

4543 


4543 

4322 


4322 

0501 


0501 

0440 


0440 

3040 


3040 

141 1 


141 1 

1605 


1605 

2340 


2340 

7240 


7240 

0000 


0000 

1072 


TAD XLT /X LINE TABLE 

3010 


DCA 10 

4545 


JMS I BLOADP /LOAD X LINE TABLE 

1064 


TAD SETSW 

3066 


DCA SW /COMPLETE BLOCK SWITCH 

1066 


TAD SW 

7640 


SZA CLA 

5251 


JMP BN 

1073 


TAD NB 

7041 


CIA 

3074 


DCA NXL /MINUS # OF X LINES 

4403 


JMS I MESSP /READ Y LINES : 

4543 


4543 

4322 


4322 

0501 


0501 

0440 


0440 

3140 


3140 

1411 


141 1 

1605 


1605 

2340 


2340 

7240 


7240 

0000 


0000 

1075 


TAD YLT /Y LINE TABLE 

3010 


DCA 10 

4545 


JMS I BLOADP /LOAD Y LINE TABLE 

1073 


TAD NB 

1074 


TAD NXL 

7640 


SZA CLA 

5546 


JMP I ERRINP /UNPAIRED LINES 

1 106 

BN, 

TAD BTABLE 

3010 


DCA 10 

4403 


JMS I MESSP /X BLOCK NUMBERS : 

4543 


4543 

4330 


4330 
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0256 
0257 
0 260 
0261 
0262 
0 263 
0 264 
0265 
0266 
0267 
0270 
,0271 
0272 
0 273 
0 274 
0275 
0276 
0277 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0310 
031 1 
0312 
0313 
0314 
0315 
0316 
0 317 
0 320 
0321 
0 322 
0323 
0 324 
0325 
0326 
0327 
0330 


4002 

4002 


1417 

1417 


0313 

0313 


4016 

4016 


251 5 

2515 


0205 

0205 


2223 

2223 


4072 

4072 


4000 

4000 


4545 

JMS I 

BLOADP 

1073 

TAD NB 

7041 

CIA 


3076 

DC A NXB /[ 

4403 

JMS I 

MESSP 

4543 

4543 


4331 

4331 


4002 

4002 


1417 

1417 


0313 

0313 


4016 

4016 


2515 

2515 


0205 

0205 


2223 

2223 


4072 

4072 


4000 

400P 


4545 

JMS I 

BLOADP 

1073 

TAD NB 

1076 

TAD NXB 

7640 

SZA CL A 

5546 

JMP I 

ERRINP 

4407 

JMS I 

7 

5112 

FGET 

Z ERO /1 

6120 

FPUT 

SUM D /: 

6123 

FPUT 

SUMD2 /: 

6126 

FPUT 

FN 

0000 

FEXT 


4551 

JMS I 

SETP 

4552 

JMS I 

RXYTP 

4553 

JMS I 

RXYBP 

4554 

JMS I 

SUMSP 

5324 

JMP . 

-2 

21 1 1 

ISZ CNTR 

5323 

JMP . 

- 5 


/MINUS # 


OF X BLOCKS 

/Y BLOCK NUMBERS 


/UNPAIRED BLOCKS 


OF DIFFERENCES 
OF DIFFERENCES 


/READ 

/READ 


AN 

AN 


SQUARED 


X & Y BLOCK 
X & Y DATA POINT 
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0 331 

4403 

0332 

4543 

0333 

4315 

0334 

0501 

0 335 

1640 

0 336 

041 1 

0337 

0606 

0 340 

0522 

0 341 

0516 

0 342 

0305 

0 343 

4072 

0344 

4000 

0 345 

4407 

0 346 

5120 

0347 

4126 

0350 

61 1 5 

0351 

0000 

0 352 

4406 

0 353 

4403 

0354 

4543 

0 355 

4323 

0 356 

2404 

0 357 

4004 

0 360 

0526 

0 361 

1 101 

0 362 

241 1 

0 363 

1716 

0 364 

4017 

0 365 

0640 

0 366 

041 1 

0 367 

0606 

0 370 

0522 

0 371 

0516 

0 372 

0305 

0 373 

4040 

0 374 

7240 

0 375 

0000 

0376 

4407 

0 377 

5115 

0400 

0001 

0 401 

6131 

0402 

5123 

0 403 

4126 

0 404 

2131 

0405 

0002 

0406 

6131 

0407 

0000 

0410 

4406 

041 1 

4403 

0412 

4543 

0 413 

4323 

041 A 

2404 


MESSP 


JMS I 
4543 
4315 
0501 
1640 
041 1 
0606 
0522 
0516 
0305 
4072 
4000 
JMS I 7 
FGET SUM D 
EDI V FN 
FPUT MEAND 
FEXT 
JMS I 6 
JMS I MESSP 
4543 
4323 
2404 
4004 
0526 
1101 
241 1 
1716 
4017 
0640 
0411 
0606 
0522 
0516 
0305 
4040 
7240 
0000 
JMS I 7 
FGET MEAND 
SQUARE 
FPUT FTEMP1 
FGET SUM D2 
FDIV FN 
FSUB FTEMP1 
SQR00T 
FPUT FTEMP1 
FEXT 
JMS I 
JMS I MESSP 
4543 
4323 
2404 


/MEAN DIFFERENCE 


/OUTPUT MEAN DI FF. 

/STD DEVIATION 


OF DIFFERENCE 


/OUTPUT 


STD DEV 
/STD 


OF DI FF. 
ERROR OF 


MEAN DIFFERENE 
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PAGE 

0 415 

0 416 

0 417 

0 490 

0 421 

0 422 

0 423 

0 424 

0 425 

0 426 

0427 

0 430 

0 431 

0 432 

0 433 

0 434 

0 435 

0436 

0 437 

0 440 

0441 

0 442 

0443 

0 4 Hk 

0445 

0446 

0 447 

0450 

0451 

0452 

0*53 

0 454 

0455 

0456 

0 457 

0460 

0461 

0 462 

0 463 

0 464 

0 465 

0466 

0 467 

0470 

0 471 

0 472 

0 473 

0474 

0 475 

0476 

0 477 

0 500 

0 501 


2 


4005 

4005 


2222 

2222 


1722 

1722 


4017 

4017 


0640 

0640 


1 505 

1 505 


01 16 

0116 


4004 

4004 


1 106 

1106 


0605 

0605 


2205 

2205 


1603 

1603 


0540 

0540 


7240 

7240 


0000 

0000 


4407 

JMS I 

7 

5126 

FGET 

FN 

2137 

FSUB 

ONE 

0002 

SOROOT 

6134 

FPUT 

FTEMP2 

5131 

FGET 

FTEMP1 

4134 

FDI V 

FTEMP2 

6131 

FPUT 

FTEMP1 

0000 

FEXT 


4406 

JMS I 

6 

4403 

JMS I 

MESSP 

4543 

4543 


4324 

4324 


^072 

4072 


4000 

4000 


4407 

JMS I 

7 

511 5 

FGET 

MEAND 

4131 

FDI V 

FTEMP1 

0000 

FEXT 


4406 

JMS I 

6 

4403 

JMS I 

MESSP 

4040 

4040 


4040 

4040 


4040 

4040 


4040 

4040 


4040 

4040 


4040 

4040 


2711 

271 1 


2410 

2410 


4004 

4004 


4006 

4006 


4072 

4072 


4000 

4000 


4407 

JMS I 

7 

5126 

FGET 

FN 

2137 

FSUB 

ONE 

0000 

FEXT 


4547 

JMS I 

0UT4P 


/OUTPUT SE OF MEAN DIFF 
/T : 


/OUTPUT T 

/12 SPACES & 


WITH D F : 
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PAGE 

0 502 

0 503 

0 504 

0 505 

0 506 

0 507 

0 510 

0 51 1 

0 512 

0 513 

0 514 

0 51 5 

0 516 

0517 

0 520 

0 521 

0 522 

0 523 

0 524 

0 52 5 

0 526 

0 527 

0 530 

0 531 

0 532 

0 533 

0534 

0 535 

0 536 

0 537 

0 540 

0 541 

0 542 

0 543 

0 544 

0 545 

0 546 

0 547 

0550 

0 551 

0 552 

0 553 

0 554 

0555 

0 556 

0 557 

0 560 

0 561 

0 562 

0563 

0 564 

0 565 

0 566 


4403 

4543 

4343 

4343 

4343 

4300 

1066 

7650 

5550 

5714 
0251 
0000 
1315 
1063 
3352 
1412 
1353 
7450 
5345 
1065 

3044 
1412 

3045 
1412 

3046 
4407 
6131 
0000 
1414 

3044 
1414 

3045 
1414 

3046 

5715 
1414 
1353 
7640 
5546 
5752 
0000 
7534 
4403 
4543 
2516 
2001 
1122 
0504 
4004 
0124 
0143 
4343 
4300 


BNP, 

RXYB, 


CHK, 


BEND, 

MDOL, 

ERRIN, 


JMS I MESSP 
4543 
4343 
4343 
4343 
4300 
TAD SW 
CL A 

I STARTP 


/8 LE’S 


/READ AN X & A Y DATA POINT 


SNA 
JMP 

JMP I BNP /READ COMPLETE BLOCKS 
BN 
0 

TAD RXYB 
TAD C2 
DC A BEND 
TAD I 12 
TAD MDOL 
SNA 

JMP CHK 
TAD DOL 
DCA 44 
TAD I 12 
DCA 4 5 
TAD I 12 
DCA 46 
JMS I 7 
EPUT ETEMP1 


/END OE BLOCK 
/RESTORE 


/ X DATA POINT 


FEXT 


TAD 
DCA 
TAD 
DCA 
TAD 
DCA 
JMP 
TAD 
TAD 
SZA 
JMP I 
JMP I 
0 

-244 
JMS I 
4543 
2516 
2001 
1122 
0504 
4004 
0124 
0143 
4343 
4300 


I 14 

44 

I 14 

45 

I 14 

46 

I RXYB 
I 14 
MDOL 
CL A 


ERRINP 

BEND 


MESSP 


/X, Y *S DON »T MATCH 


/UNPAIRED DATA 
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0 567 

1066 

TAD 

SW 

0 570 

7650 

SNA 

CL A 

0 571 

5550 

JMP 

I STARTP 

0 572 

571 A 

JMP 

I BNP 




3 

0000 

3073 

3064 

4405 

1060 

7650 

5240 

4404 

3077 

1077 

3410 

2073 

1057 

1101 

7640 

5203 

4405 

1060 

7650 

5220 

4404 

7041 

3100 

1077 

1100 

7700 

5203 

2077 

1077 

3410 

2073 

5227 

1057 

1102 

7650 

5503 

1057 

1067 

7650 

5600 

1057 

1256 

7640 

5203 

2064 

5600 

7477 

0000 

1410 

3264 

4402 


* 600 
BLOAD, 


TERM, 


MA, 

RXYT, 


0 

DC A NB 
DCA SETSW 
JMS I 5 
TAD 60 
SNA CL A 
JMP TERM 
JMS I UNFLP 
DCA TEMPI 
TAD TEMPI 
DCA I 10 
ISZ NB 
TAD 57 
TAD M COM 
SZA CLA 

BLOAD+3 


/SUBROUTINE TO SET THE BLOCK TABLE 


/INVALID, CHECK TERMINATOR 


/DEPOSIT IN BLOCK TABLE 
/COUNT BLOCKS 


JMP 
JMS 
TAD 
SNA 
JMP 
JMS 
CIA 
DCA 
TAD 
TAD 
SMA 
JMP 
I SZ 
TAD 
DCA 
I SZ 
JMP 
TAD 
TAD 
SNA 
JMP 
TAD 


I 5 
60 
CLA 
.-3 
I UNFLP 


/COMMA, 


/NOT A COMMA, 
SET STABLE 


GET NEXT BLOCK 


/INVALID, TRY AGAIN 


TEMP2 
TEMPI 
TEMP2 
CLA 

BLOAD+3 
TEMPI 
TEMPI 
I 10 
NB 

10 
57 
MCC 
CLA 

I TAPE 
57 

TAD MFORM 
SNA CLA 

I BLOAD 
57 
MA 
CLA 

BLOAD+ 3 
SETSW 
I BLOAD 


/MINUS 2ND BLOCK # 


/SET UP, GET NEXT # 


/DEPOSIT IN BTABLE 
/COUNT BLOCKS 


JMP 
TAD 
TAD 
SZA 
JMP 
I SZ 
JMP 
-301 
0 

TAD I 10 
DCA XBLOCK 
JMS I RWTAPE 


/END OF TABLE 


/NOT END OF TABLE 
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0 663 

1201 


1201 


0 664 

0000 

X BLOCK, 

0 


0 665 

1200 


1200 

/READ X DATA INTO 

0 666 

1066 


TAD SW 


0667 

7640 


SZA CLA 


0 670 

5276 


JMP . + 6 

/DO NOT RERRANGE 

0671 

1072 


TAD XLT 

/X LINE TABLE 

0 672 

3013 


DCA 13 


0673 

1104 


TAD XDATA 


0 674 

3012 


DCA 12 


0 675 

4321 


JMS ADAT 

/ARRANGE DATA 

0676 

141 1 


TAD I 11 


0 677 

3302 


DCA YBLOCK 


0 700 

4402 


JMS I RWTAPE 

0 701 

1201 


1201 


0 702 

0000 

YBLOCK, 

0 


0 703 

1400 


1400 

/READ Y DATA INTO 

0704 

1066 


TAD SW 


0 705 

7640 


SZA CLA 


0706 

5314 


JMP . + 6 


0 707 

1075 


TAD YLT 

/Y LINE TABLE 

0710 

3013 


DCA 13 


071 1 

1 105 


TAD YDATA 


0712 

3012 


DCA 12 


0713 

4321 


JMS ADAT 

/ARRANGE DATA 

0 71 4 

1 104 


TAD XDATA 


0 715 

3012 


DCA 12 


0716 

1105 


TAD YDATA 


0 717 

3014 


DCA 14 


0 720 

5657 


JMP I RXYT 


0721 

0000 

A DAT, 

0 


0 722 

1074 


TAD NXL 

/MINUS # OF x lin: 

0723 

3110 


DCA CNT 


0 724 

1012 


TAD 12 


0 725 

3077 


DCA TEMPI 


0 726 

1413 


TAD I 13 


0 727 

1 107 


TAD Ml 


0 730 

7425 


7425 

/MUY 

0 731 

0003 


0003 


0 732 

7701 


7701 

/CLA & MQA 

0733 

1077 


TAD TEMPI 

/3CLINE- 1 )+X OR Y 

0734 

3015 


DCA 15 


0 735 

1415 


TAD I 15 


0 736 

3412 


DCA I 12 


0 737 

141 5 


TAD I 15 


0 740 

3412 


DCA I 12 


0 741 

1415 


TAD I 1 5 


0742 

3412 


DCA I 12 


0 743 

21 10 


ISZ CNT 


0 744 

5326 


JMP ADAT+5 


0 745 

1065 


TAD DOL 


0 746 

3412 


DCA I 12 


0 747 

5721 


JMP I ADAT 



1200 


DATA 


1 400 


DATA 
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0 750 
0751 
0 752 
0 753 
0 7 54 
0 755 
0 756 
0 757 
0760 
0 761 
0762 
0763 
0 764 
0 765 
0 766 
0767 
0 770 
0771 
0 772 

1 000 
1 001 
1 002 
1 003 
1 004 
1 005 
1 006 
1 007 
1 010 
1 01 1 
1 012 
1 013 
1 014 
1 01 5 
1 016 
1 017 
1020 
1 02.1 
1 022 
1 023 
1 024 
1 025 
1 026 
1 027 
1 030 
1 031 


0000 

0 UT4, 

0 

/OUTPUT MAX OF 4 DI 

4407 


JMS I 7 



1142 


FADD PT1 



0000 


FEXT 



1371 


TAD C4 



3062 


DC A 62 



3767 


DCA I FP1 



3770 


DCA I FP2 



4406 


JMS I 6 



1372 


TAD C253 

/RESTORE FLOATING F 

3767 


DCA I FP 1 



1063 


TAD C2 



3770 


DCA I FP2 



3062 


DCA 62 



5750 


JMP I 0UT4 



7327 

FP1, 

7327 



7330 

FP2, 

7330 



0004 

C4, 

4 



0253 

C253, 

253 




* 1000 




0000 

SET, 

0 

/SET INDICES FOR RE 

1106 


TAD ETABLE 



3010 


DCA 10 

/X 

INDEX 

1073 


TAD NB 



1106 


TAD BTABLE 



3011 


DCA 11 

/Y 

INDEX 

1076 


TAD NXB 



31 1 1 


DCA CNTR 



5600 


JMP I SET 



0000 

SUMS, 

0 

/SUM DATA 

4407 


JMS I 7 



6134 


FPUT FTEMP2 

/Y DATA 

5131 


FGET FTEMP1 


/X DATA 

2134 


FSUE FTEMP2 


/X-Y 

6131 


FPUT FTEMP1 



1120 


FADD SUMD 



6120 


FPUT SUMD 



5131 


FGET FTEMP1 



0001 


SQUARE 



1123 


FADD SUMD2 



6123 


FPUT SUMD2 



5137 


FGET ONE 



1126 


FADD FN 



6126 


FPUT FN 



0000 


FEXT 



561 1 


JMP I SUMS 




DIGITS, NO SIGN 


POINT 


READING TAPE- 


POINT 

POINT 


128 




PAGE 4 




* 62 


0 062 

0000 


0 

0 063 

0002 

C2* 

2 

0 064 

0000 

SETSW* 

0 

0065 

0244 

DOL* 

244 

0 066 

0000 

SW* 

0 

0067 

7564 

M FO RM* 

-214 

0070 

7447 

MY, 

-331 

0071 

7462 

MN* 

-316 

0 072 

2400 

XLT* 

2400 

0073 

0000 

NB* 

0 

0074 

0000 

NXL* 

0 

0075 

2500 

YLT* 

2500 

0076 

0000 

NXB* 

0 

0077 

0000 

TEMPI* 

0 

0 100 

0000 

TEMP2* 

0 

0 101 

7524 

MCOM* 

-254 

0 102 

7575 

MCC* 

-203 

0 103 

7600 

TAPE* 

7600 

0 104 

1177 

XDATA* 

1177 

0 105 

1377 

YDATA* 

1377 

0 106 

1600 

B TABLE* 

1600 

0 107 

7777 

Ml* 

- 1 

0 110 

0000 

CNT* 

0 

0 111 

0000 

CNTR* 

0 

0 112 

0000 



0113 

0000 



0 114 

0000 

ZERO* 

O 

O 

o 

0 115 

0000 



0 116 

0000 



0 117 

0000 

MEAND* 

o 

o 

o 

0 120 

0000 



0 121 

0000 



0 122 

0000 

SUM D* 

o 

o 

••s 

o 

0 123 

0000 



0 124 

0000 



0 125 

0000 

SUMD2* 

o 

o 

o 

0126 

0000 



0 127 

0000 



0 130 

0000 

FN* 

o 

o 

••s 

o 

0 131 

0000 



0 132 

0000 



0 133 

0000 

FTEMP1* 

o 

o 

•1 

o 

0 134 

0000 



0 135 

0000 



0 136 

0000 

FTEMP2* 

o; o; o 

0 137 

0001 



0 140 

2000 



0 141 

0000 

ON E* 

1* 2000* 0 

0 142 

7775 



0 143 

3146 



0 144 

3146 

PT1 * 

7775; 3146; 3146 
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» 


0 145 

0600 

BLOADP, 

BLOAD 

0 146 

0554 

ERRINP, 

ERRIN 

0 147 

0750 

0UT4P* 

0 UT4 

0 150 

0200 

STARTP* 

START 

0 151 

1000 

SETPi 

SET 

0 152 

0657 

RXYTP, 

RXYT 

0 1 53 

0515 

RXYBP, 

RXYB 

0 154 

1011 

SUMSP, 

*7341 

SUMS 

7341 

0000 


0 

7342 

0000 

M E S SP= 3 

UN FL P= 4 
RWTAPE= 2 
SQUARE= 1 
SQROOT= 2 

0 


/CLEAR THE CR AND LF IN FLOATING POINT 
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A DAT 

0721 

BEND 

0552 

BLOAD 

0600 

BLOADP 

0145 

BN 

0251 

BNP 

0514 

B TABLE 

0106 

CHK 

0545 

CNT 

0110 

CNTR 

01 1 1 

C 2 

0063 

C 253 

0772 

C4 

0771 

DOL 

0065 

ERRIN 

0554 

ERRINP 

0146 

FN 

0126 

F PI 

0767 

FP2 

0770 

F TEMPI 

0131 

FTEMP2 

0134 

M A 

0656 

MCC 

0102 

M COM 

0101 

M DOL 

0553 

M EAND 

01 1 5 

M ESSP 

0003 

M FORM 

0067 

MN 

0071 

MY 

0070 

M 1 

0107 

NB 

0073 

NXB 

0076 

NXL 

0074 

ONE 

0137 

0 UT4 

0750 

0 UT4P 

0147 

PT1 

0142 

R WTAPE 

0002 

RXYB 

0515 

RXYBP 

0153 

RXYT 

0657 

RXYTP 

0152 

SET 

1000 

SETP 

0151 

SETSW 

0064 

SQROOT 

0002 

SQUARE 

0001 

START 

0200 

S TARTP 

0150 

SUMD 

0120 

SUMD2 

0123 
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SUMS 

101 1 

SUMSP 

0154 

s w 

0066 

TAPE 

0103 

T EMP1 

0077 

TEMP2 

0100 

TERM 

0640 

UNFLP 

0004 

X BLO CK 

0664 

X DATA 

0104 

XLT 

0072 

Y BLOCK 

0702 

Y DATA 

0105 

YLT 

0075 

Z ERO 

0112 






BCALC - BLOCK CALCULATOR 


PURPOSE: This program enables the user to do calculations using 

data files on DECtape as variables in the calculation. Results of 
calculation are stored on DECtape. BCALC is a master program for 
handling the data files. The user must supply a floating point program 
which is called by BCALC as a subroutine, for each specific calculation 

OPERATION: BCALC requires a floating point subroutine starting at 

memory address 3600. One page has been set aside for this subroutine. 
BCALC has been updated with the starting address of the tape system 
and subroutines are updated with a starting address of 0200. This 
enables the user to call the subroutine after calling BCALC and the 
program will begin running after the subroutine is called. If several 
calculations are to be done, the user may enter the tape Monitor and 
call the next successive calculation subroutine without recalling 
BCALC. 

Start the tape Monitor and call BCALC and then the calculation 
subroutine. The program first queries the user about the block length 
of the data tape. Next the program will type "CONSTANT : ". After 
the user has typed in the first constant of his calculation and 
terminated the number by a non-valid floating point input (space, etc.) 
the program will again type "CONSTANT : ". The user should terminate 
the last constant input by "CTRL/FORM" which signals BCALC to go on 
and ask for "VARIABLE BLOCK : ". The user replies by typing the block 
number of the first variable in his calculation. Input is similar to 
the input of constants in that the last variable block number is 
terminated by "CTRL/FORM". BCALC will then ask "RESULT BLOCK : " and 
the user should tyoe the block number of data tape in which he wishes 
to have the results of the calculation stored. 






BCALC 


BLOCK CALCULATOR (continued) 


At this point the variable blocks are read into core memory, 
the computations are done and the results are written on data tape. 
Unless the program is restarted at 0200 future calculations will be 
done using the same constants and the program will return to "VARIABLE 
BLOCK : 

DESCRIPTION: After Instructions from the user BCALC reads the 

variable blocks into core memory. The first result is computed 
from the constants and first number of each variable block. The 
second result comes from the same calculation on the second number 
from each variable block. As many results will be computed as there 
are numbers in the first variable block. 

Up to 10 constants and 11 variables may be used for one 
calculation. 

EXAMPLE: Suppose the user wishes to calculate the values of z, 

where z « ax 2 - by and to have the z's typed out after calculation. 
He would write the following type of calculation subprogram to be 
called by BCALC. 


Let 

x ■ 

Vi, 

the first 

variable 


y - 

v 2 > 

the second 

1 variable 


a • 

Cl. 

the first 

constant 


b - 

C 2 , 

the second 

1 constant 

3600 

0000 


0000 

/Calculation subroutine 

3601 

4407 


JMS I 7 


3602 

5125 


PGET V 2 


3603 

3066 


FMPY C 2 


3604 

6130 


FPUT V 3 

/Temporary storage 

3605 

5122 


FGET V! 
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BCALC - BLOCK CALCULATOR (continued) 


3606 

0001 

SQUARE 


3607 

3063 

FMPY Ci 


3610 

2130 

FSUB V 3 


3611 

6130 

FPUT V 3 

/Store z 

3612 

0000 

FEXT 


3613 

4406 

JMS I 6 

/Output z 

3614 

4407 

JMS I 7 


3615 

5130 

FGET V 3 

/Get z 

3616 

0000 

FEXT 


3617 

5600 

JMP I 3600 


This 

program would be updated and givei 

a starting address of 

0200. 


ADDRESSES 

OF CONSTANTS AND VARIABLES: 

C 1 

0063 

Vl 

0122 

C 2 

0066 

V 2 

0125 

c 3 

0071 

V 3 

0130 

C 4 

0074 

V 4 

0133 

C 5 

0077 

V 5 

0136 

C 6 

0102 

V 6 

0141 

c 7 

0105 

V 7 

0144 

C 8 

0110 

V 8 

0147 

C 9 

0113 

V 9 

0152 

C 10 

0116 

VlO 

0155 



Vll 

0160 



Vl2 

0163 



Vl 3 

0166 



Vl4 

0171 



Vl5 

0174 
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B CAL C ^ 
EXAMP^ 


/Call program 

/Call calculation subroutine 


STD FORMAT ? Y 


/Yes 


CONSTANT : 10 ^ . /First constant 

CONSTANT : 2( CTRL/FORM) /Second and last constant 


VARIABLE BLOCK : 



/First variable block # 


VARIABLE BLOCK : 40(CTRL/F0RM) 


/Second and last variable block 


RESULT BLOCK : 
+ 0. 1439999E+02 
+ 0. 3600000E+ 02 
+ 0.8400000E+02 
+ 0. 1520000E+ 03 
+ 0. 2400000E+ 03 
+ 0. 3976000E+ 03 
+ 0. 4760000E+ 03 
+ 0.6239999E+03 
+ 0.7044999E+03 
+ 0. 9 799998 E+ 03 
+ 0. 1 188000E+04 
+ 0. 141 6000E+ 04 
+ 0. 1664000E+ 04 
+ 0. 1636099E+04 
+ 0. 2220000E+ 04 



/Result block # 
/Results 


/Same constants 


as above are used 


VARIABLE BLOCK : 60^ 

VARIABLE BLOCK : 60(CTRL/FORM) 

RESULT BLOCK : 65 
+ 0. 1 429999 E+ 02 ^ 

+ 0.3600000E+ 02 
+ 0« 8 400000E+ 02 
+ 0. 1 520000E+ 03 
+ 0. 2400000E+ 03 
+ 0. 3967999 E+ 03 
+ 0. 4760000E+03 
+ 0.6239999 E+ 03 
+ 0.7055000E+ 03 
+ 0» 9 799998 E+ 03 
+ 0. 1 18S000E+ 04 
+ 0. 1*1 6000E+04 
+ 0. 1664000E+ 04 
+ 0. 1638299E+04 
+ 0. 2220000E+ 04 


/First variable block # 

/Second and last variable block # 

/Result block # 

/Results 
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PAGE 


0200 
0201 
0202 
0203 
0 204 
0205 
0206 
0207 
0210 
021 1 
0212 
0213 
0 21A 
0215 
0216 
0217 
0 220 
0 221 
0 222 
0223 
0 224 
0225 
0 226 
0 227 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0 240 
0241 
0 242 
0243 
0 244 
0245 
0246 
0247 
0 250 
0251 
0252 
0253 
0254 
0255 


/BCALC* VARIABLES ARE ARRANGED IN BLOCKS. 
/PLACE CALCULATION SUBROUTINE AT 3600 
/TERMINATE LAST CONSTANT AND LAST VARIABLE 
/WITH CTRL/FORM. INPUT UP TO 10 CONSTANTS 
/AND 11 VARIABLES. 

* 200 


6046 

TLS 



4403 

JMS I 

MESS 

/•’STD FORMAT ? 

4543 

4543 



4323 

4323 



2404 

2404 



4006 

4006 



1722 

1722 



1501 

1501 



2440 

2440 



7740 

7740 



0000 

0000 



1345 

TAD M200 


3746 

DCA I 

WORDS /STD 

4405 

JMS I 

5 


1057 

TAD 57 


1347 

TAD MY 


7650 

SNA CLA 


5250 

JMP YES 

/YES 

1057 

TAD 57 


1350 

TAD MN 


7640 

SZA CLA 

/NO 

5215 

JMP . - 

10 


4403 

JMS I 

MESS 

/••BLOCK LENGTH 

4543 

4543 



4302 

4302 



1417 

1417 



0313 

0313 



4014 

4014 



0516 

0516 



0724 

0724 



1040 

1040 



5004 

5004 



0503 

0503 



5140 

5140 



7240 

7240 



0000 

0000 



4754 

JMS I 

NP 

/TAKE IN A VALI 

4404 

JMS I 

UNFL 


7041 

CIA 



3746 

DCA I 

WORDS /MIN 

1062 YES* 

TAD CTAB 

/CONSTANT TABLE 

3010 

DCA 10 



4403 CIN* 

JMS I 

MESS 

/•'CONSTANT : " 

4543 

4543 



4303 

4303 



1716 

1716 




129 WORDS/BLOCK 


( DEC) 


FLOATING # 


BLOCK LENGTH 


137 




PAGE 1 


0256 

2324 

2324 


0257 

0116 

0116 


0 260 

2440 

2440 


0261 

7240 

7240 


0262 

0000 

0000 


0263 

4754 

JMS I NP 


0 264 

1044 

TAD 44 

/STORE CONSTANT 

0 265 

3410 

DCA I 10 


0266 

1045 

TAD 45 


0267 

3410 

DCA I 10 


0270 

1046 

TAD 46 


0271 

3410 

DCA I 10 


0272 

1057 

TAD 57 


0273 

1351 

TAD MFORM 


0 274 

7640 

SZA CLA 

/SKIP AFTER LAST CONSTANT 

0275 

5252 

JMP CIN 

/GET NEXT CONSTANT 

0276 

1752 

TAD I BTABP /VARIABLE BLOCK TABLE 

0277 

3010 

DCA 10 


0300 

3353 

DCA NV 

/CLEAR # OF VARIABLES 

0 301 

4403 VIN* 

JMS I MESS 

/"VARIABLE BLOCK : " 

0 302 

4543 

4543 


0303 

4326 

4326 


0304 

0122 

0122 


0305 

1101 

1101 


0 306 

0214 

0214 


0307 

0540 

0540 


0310 

0214 

0214 


0311 

1703 

1703 


0312 

1340 

1340 


0313 

7240 

7240 


0314 

0000 

0000 


0315 

4754 

JMS I NP 


0316 

4404 

JMS I UNFL 


0317 

3410 

DCA I 10 

/DEPOSIT IN STABLE 

0 320 

2353 

ISZ NV 

/COUNT VARIABLES 

0 321 

1057 

TAD 57 


0322 

1351 

TAD MFORM 


0323 

7640 

SZA CLA 


0324 

5301 

JMP VIN 

/GET BLOCK # OF NEXT VARIABLE 

0325 

1353 

TAD NV 


0326 

7041 

CIA 


0327 

3353 

DCA NV 

/MINUS # OF VARIABLES 

0330 

4403 

JMS I MESS 

/"RESULT BLOCK : " 

0331 

4543 

4543 


0332 

4322 

4322 


0333 

0523 

0523 


0334 

2514 

2514 


0335 

2440 

2440 


0336 

0214 

0214 


0337 

1703 

1703 


0340 

1340 

1340 


0341 

7240 

7240 


0342 

0000 

0000 
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0 343 

5744 


0 344 

0400 

P2* 

0345 

7600 

M 200* 

0 346 

4342 

WORDS* 

0 347 

7447 

MY* 

0350 

7462 

MN* 

0351 

7564 

MFORM* 

0 352 

0533 

BTABP* 

0353 

0000 

NV* 

0 354 

0503 

NP* 


JMP I 
400 
-200 
4342 
-331 
-316 
-214 
BTAB 
0 

NO 


P2 





PAGE 2 


1 


* 400 


0 400 
0 AO 1 
0402 
0403 
0 404 
0405 
0406 
0407 
0410 
041 1 
0412 
0413 
0414 
041 5 
0416 
0417 


4303 

4404 

3275 

1333 

3010 

1315 

7001 

3217 

1727 

3316 

1410 

3216 

4402 

1201 

0000 

0000 


READT* 


BLOCK* 

CORE* 


0420 

1217 

TAD 

CORE 

0421 

1317 

TAD 

C200 

0422 

3217 

DCA 

CORE 

0423 

2316 

I SZ 

CNTR 

0 424 

5212 

JMP 

READT 

0425 

1331 

TAD 

RESULT 

0 426 

3012 

DCA 

12 

0427 

1315 

TAD 

DATA 

0430 

3322 

DCA 

INDEX 

0431 

1322 

TAD 

INDEX 

0432 

3010 

DCA 

10 

0433 

1727 RD, 

TAD 

I N VP 

0434 

3316 

DCA 

CNTR 

0435 

1121 

TAD 

VTAB 

0436 

301 1 

DCA 

1 1 

0437 

1410 

TAD 

I 10 

0440 

1323 

TAD 

MDOL 

0441 

7450 

SNA 


0 442 

5271 

JMP 

END 

0443 

1324 

TAD 

DOL 

0444 

3411 

DCA 

I 1 1 

0445 

1410 

TAD 

I 10 

0446 

341 1 

DCA 

I 1 1 

0447 

14Q0 

TAD 

I 10 

0450 

341 1 

DCA 

I 1 1 

0451 

1010 

TAD 

10 

0452 

1320 

TAD 

Cl 75 

0453 

3010 

DCA 

10 

0454 

2316 

ISZ 

CNTR 

0455 

5237 

JMP 

RDf 4 

0456 

4725 

JMS 

I CALC 

0457 

1044 

TAD 

44 

0460 

3412 

DCA 

I 12 

0461 

1045 

TAD 

45 

0 462 

3412 

DCA 

I 12 


JMS NO 
JMS I UNFL 

DCA BLOCKR /RESULT BLOCK # 

TAD BTAB /VARIABLE BLOCK # TABLE 
DCA 10 
TAD DATA 
I AC 

DCA CORE 

TAD I NVP /* OF VARIABLES 
DCA CNTR 
TAD I 10 
DCA BLOCK 
JMS I RWTAPE 
1201 
0 
0 


/SET CORE AHEAD ONE PAGE 
/READ NEXT VARIABLE 
/STORE RESULTS AT I 12 
/INDEX TO READ VARIABLES 


/FLOATING TABLE OF VARIABLES 


/END OF DATA 
/RESTORE 


/SET INDEX AHEAD 125 
/READ NEXT VARIABLE 
/STORE RESULT 
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0463 

1046 


TAD 46 



0464 

3412 


DCA I 12 



0465 

1322 


TAD INDEX 



0 466 

1321 


TAD THREE 



0467 

3322 


DCA INDEX 

/SET INDEX 

UP 3 

0470 

5231 


JMP RD-2 

/READ NEXT 

LINE 

0471 

1324 

END, 

TAD DOL 



0472 

3412 


DCA I 12 

/TERMINATE 

DATA 

0473 

4402 


JMS I RWTAPE 


0474 

1401 


1401 



0475 

0000 

BLOCK R, 

0 

/WRITE RESULTS j 

0 476 

0600 


0600 

/ANSWER BUFFER 

0477 

4403 


JMS I MESS 

/ LF LF 


0 500 

4343 


4343 



0 501 

0000 


0000 



0 502 

5726 


JMP I REPEAT 

/GET 

0 503 

0000 

NO, 

0 



0 504 

4405 


JMS I 5 



0505 

1060 


TAD 60 



0 506 

7640 


SZA CLA 



0 507 

5703 


JMP I NO 



0510 

1057 


TAD 57 



0 51 1 

1330 


TAD MCC 



0512 

7650 


SNA CLA 



0513 

5732 


JMP I TAPE 

/RETURN TO 

TAPE 

0514 

5304 


JMP NO+1 



0515 

0777 

DATA, 

777 



0516 

0000 

CNTR, 

0 



0517 

0200 

C200, 

200 



0 520 

0175 

C1 75, 

175 



0 521 

0003 

THREE, 

3 



0 522 

0000 

INDEX, 

0 



0 523 

7534 

MDOL, 

-244 



0 524 

0244 

DOL, 

244 



0 525 

3600 

CAL CL 

3600 



0526 

0276 

REPEAT, 

VIN-3 



0 527 

0353 

N VP, 

NV 



0 530 

7575 

MCC, 

-203 



0 531 

0577 

RESULT, 

577 



0 532 

7600 

TAPE, 

7600 



0 533 

0533 

BTAB, 

BTAB 




/GET NEW VARIABLES 
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RWTAPE=2 
MESS=3 
UNFL= 4 
*62 


0062 

0062 

CTAB, 

CTAB 

0063 

0000 



0064 

0000 



0065 

0000 

Cl* 

o; o; o 

0066 

0000 



0067 

0000 



0070 

0000 

C2, 

o 

o 

o 

0071 

0000 



0072 

0000 



0073 

0000 

* 

00 

o 

O 

Wt 

o 

Wt 

O 

0074 

0000 



0075 

0000 



0076 

0000 

C4, 

O 

w* 

o 

o 

0077 

0000 



0 100 

0000 



0101 

0000 

C 5» 

o; o; o 

0102 

0000 



0103 

0000 



0104 

0000 

C6> 

O 

Wt 

o 

o 

0105 

0000 



0106 

0000 



0107 

0000 

C7, 

o; o; o 

0110 

0000 



0111 

0000 



0 112 

0000 

C8, 

C 

c 

••k 

c 

0113 

0000 



01 14 

0000 



0115 

0000 

C9> 

o; o; o 

0116 

0000 



0117 

0000 



0120 

0000 

CIO, 

O 

O 

o 

0121 

0121 

VTAB, 

VTAB 

0122 

0000 



0123 

0000 



0124 

0000 

VI* 

o 

o 

o 

0125 

0000 



0126 

0000 



0127 

0000 

V2» 

o; oj o 

0 130 

0000 



0131 

0000 



0132 

0000 

V3, 

O 

o 

o 

0133 

0000 



0134 

0000 



0135 

0000 

V4, 

o 

o 

o 

0136 

0000 



0137 

0000 



0140 

0000 

V5, 

o; o; o 

0141 

0000 
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0142 

0000 



0143 

0000 

V6> 

o 

o 

o 

0144 

0000 



0145 

0000 



0146 

0000 

V7> 

o 

o 

• •s 

o 

0147 

0000 



0150 

0000 



0151 

0000 

V8 * 

o 

o 

o 

01 52@ 

0000 



0153 

0000 



01 54 

0000 

V9> 

0J 0J 0 

0155 

0000 



0156 

0000 



0157 

0000 

V10, 

o 

o 

••V 

o 

0 160 

0000 



0161 

0000 



0162 

0000 

VI \> 

0J 0J 0 

0163 

0000 



0164 

0000 



0165 

0000 

VI 2, 

o 

c 

c 

0166 

0000 



0167 

0000 



0170 

0000 

VI 3 , 

01 0J 0 

0171 

0000 



0172 

0000 



0173 

0000 

V1 4> 

o 

o 

*•» 

o 

0174 

0000 



0175 

0000 



0176 

0000 

VI 5* 

o 

•+, 

o 

o 
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BLOCK 

0416 

BLOCKR 

0475 

B TAB 

0533 

BTABP 

0352 

CALC 

0525 

CIN 

0252 

CNTR 

0516 

CORE 

0417 

C TAB 

0062 

C 1 

0063 

CIO 

0116 

C 175 

0520 

C 2 

0066 

C 200 

0517 

C 3 

0071 

C4 

0074 

C 5 

0077 

C 6 

0102 

C 7 

0105 

C8 

0110 

C9 

0113 

DATA 

0515 

DOL 

0524 

END 

0471 

I NDEX 

0522 

MCC 

0530 

M DOL 

0523 

MESS 

0003 

M FORM 

0351 

MN 

0350 

MY 

0347 

M 200 

0345 

NO 

0503 

NP 

0354 

N V 

0353 

N VP 

0527 

P2 

0344 

RD 

0433 

READT 

0412 

R EPEAT 

0526 

RESULT 

0531 

RWTAPE 

0002 

TAPE 

0532 

THREE 

0521 

UNFL 

0004 

VIN 

0301 

VTAB 

0121 

VI 

0122 

V10 

0155 

V 1 1 

0160 

V 12 

0163 

V 1 3 

0166 
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V 1 4 

0171 

V 1 5 

0174 

V 2 

0125 

V 3 

0130 

V 4 

0133 

V 5 

0136 

V 6 

0141 

V 7 

0144 

V8 

0147 

V9 

0152 

WORDS 

0346 

YES 

0250 



LCALC - LINE CALCULATOR 


PURPOSE: This program enables the user to do calculations from 

data stored on DECtape using specific lines of a file as variables 
in the calculation. The result of the calculation may be stored on 
one line of the same file or a different file. LCALC is similar to 
BCALC. 

OPERATION: LCALC requires a floating point subroutine starting 

at memory address 3600. Calculation subroutines for LCALC are 
identical in form to those used by BCALC and may be used with either 
program. 

Operation of LCALC is similar to that of BCALC. LCALC asks 
"VARIABLE LINE : " instead of "VARIABLE BLOCK : " and in addition 
asks "INPUT BLOCK : " and "RESULT BLOCK : ". If the user wishes to 
use the same result block as input block he may answer "S" to 
"RESULT BLOCK : ". After the first execution the program does all 
calculations using the same constants and the same lines as variables 
It returns to "INPUT BLOCK : " after execution. 

"CTRL/C" will return control to the tape system index on unit #8 

DESCRIPTION: This program does one computation and produces one 

result per execution of the program. It is useful if data files 
contain nonhomogeneous data. If, for Instance, the first number in 
each file is height; the second, weight; third, age; etc., one may 
wish to compute a factor which is a combination of these variables 
and have the result appear as the seventh number in the file. LCALC 
can also be used to check subroutines intended for use with BCALC. 
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‘ • 


L CALC 

EXAMP 


4 

* 


STD FORMAT ? Y 

CONSTANT : mu 

CONSTANT : 2(QTRL/FORM) 

VARIABLE LINE : 1 jj 

VARIABLE LINE : A (CTRL/FORM) 

RESULT LINE : lSu 

INPUT BLOCK : 10 n 

RESULT BLOCK : 1M 
+ 0. 2000000E+ 01 " r “ 


I NPUT BLOCK : 1 1 LJ 

RESULT BLOCK : 12 j 

+ 0. 2000000E+ 01 


I NPUT BLOCK : 
RESULT BLOCK 


10 U 

: _S+0. 2000000E+01 


/Call program 

/Call calculation subroutine 
/Yes 

/First constant 

/Second and last constant 
/First variable line # 

/Second and last variable line # 
/Result line # 

/Input block # 

/Result block # 

/Result (will be written on line 15 
/ of block #11) 

/Input block # 

/Result block # 

/Result (will be written on line 15 
/ of block #12) 

/Input block # 

/Result block # same as input block # 


INPUT BLOCK : 11 ^ 

+ 0. 2000000E+ 01 ^ 


INPUT BLOCK 
+ 0.2000000E+ 



/Result block # same as input block #. 
/Same constants and line #’s for variables 
/And results used throughout. 


INPUT BLOCK : tC 


/Return control to tape Monitor 
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/LCALC, VARIABLES ARE INDIVIDUAL LINES 
/PLACE CALCULATION SUBROUTINE AT 3600 
/TERMINATE LAST CONSTANT AND LAST VARIABLE 
/WITH CTRL-FORM. RESPOND TO "RESULT 
/BLOCK : "WITH "S" IF IT IS ALWAYS TO BE THE 
/SAME AS THE INPUT BLOCK 
* 200 


0 200 

6046 

TLS 


0 201 

4403 

JMS I 

MESS /"STD FORMAT ? " 

0 202 

4543 

4543 


0203 

4323 

4323 


0204 

2404 

2404 


0205 

4006 

4006 


0206 

1722 

1722 


0207 

1 501 

1501 


0210 

2440 

2440 


021 1 

7740 

7740 


0212 

0000 

0000 


0213 

1347 

TAD M200 

0214 

3750 

DCA I 

WORDS /STD, 128 WORDS/BLOCK 

0215 

3761 

DCA I 

RSWP 

0216 

4405 

JMS I 

5 

0217 

1057 

TAD 57 

0220 

1351 

TAD MY 

0221 

7650 

SNA CL A 

0 222 

5251 

JMP CIN-2 /YES 

0223 

1057 

TAD 57 

0224 

1352 

TAD MN 

0225 

7640 

SZA CLA /NO 

0226 

5216 

JMP 

- 10 

0227 

4403 

JMS I 

MESS /"BLOCK LENGTH (DEC) S " 

0230 

4543 

4543 


0231 

4302 

4302 


0232 

1417 

1417 


0233 

0313 

0313 


0234 

4014 

4014 


0235 

0516 

0516 


0236 

0724 

0724 


0237 

1040 

1040 


0240 

5004 

5004 


0 241 

0503 

0503 


0 242 

5140 

5140 


0243 

7240 

7240 


0244 

0000 

0000 


0245 

4755 

JMS I 

NINP /TAKE IN A VALID FLOATING # 

0246 

4404 

JMS I 

UN FL 

0247 

7041 

CIA 


0250 

3750 

DCA I 

WORDS /MINUS BLOCK LENGTH 

0251 

1062 

TAD CTAB /CONSTANT TABLE 

0252 

3010 

DCA 10 

0253 

4403 CIN, 

JMS I 

MESS /"CONSTANT : " 

0254 

4543 

4543 
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0255 
0256 
0257 
0 260 
0261 
0 262 
0 263 
0 264 
0265 
0266 
0267 
0270 
0271 
0272 
0273 
0 274 
0275 
0276 
0277 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0310 
031 1 
0312 
0313 
0314 
0315 
0316 
0317 
0320 
0321 
0 322 
0323 
0 324 
0325 
0326 
0 327 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0 340 
0 341 


4303 

4303 


1716 

1716 


2324 

2324 


0116 

0116 


2440 

2440 


7240 

7240 


0000 

0000 


4755 

JMS I NINP 


1044 

TAD 44 

/STORE CONSTANT 

3410 

DCA I 10 


1045 

TAD 45 


3410 

DCA I 10 


1046 

TAD 46 


3410 

DCA I 10 


1057 

TAD 57 


1353 

TAD MFORM 


7640 

SZA CL A 

/SKIP AFTER LAST CONSTANT 

5253 

JMP CIN 

/GET NEXT CONSTANT 

1760 

TAD I VLTABP /VARIABLE LINE TABLE 

3010 

DCA 10 


3356 

DCA NV 

/CLEAR # OF VARIABLES 

4403 VIN, 

JMS I MESS 

/"VARIABLE LINE i " 

4543 

4543 


4326 

4326 


0122 

0122 


1101 

1101 


0214 

0214 


0540 

0540 


141 1 

141 1 


1605 

1605 


4072 

4072 


4000 

4000 


4755 

JMS I NINP 


4404 

JMS I UNFL 


3410 

DCA I 10 

/DEPOSIT IN VLTABLE 

2356 

ISZ NV 

/COUNT VARIABLES 

1057 

TAD 57 


1353 

TAD MFORM 


7640 

SZA CLA 

/SKIP AFTER LAST VARIABLE 

5302 

JMP VIN 

/GET LINE # OF NEXT VARIABLE 

1356 

TAD NV 


7041 

CIA 


3356 

DCA NV 

/MINUS # OF VARIABLES 

4403 

JMS I MESS 

/"RESULT LINE : ” 

45T3 

4543 


4322 

4322 


0523 

0523 


2514 

2514 


2440 

2440 


141 1 

141 1 


1605 

1605 


4072 

4072 


4000 

4000 
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0 342 

4755 


JMS I 

NINP 

0 343 

4404 


JMS I 

UNFL 

0344 

3757 


DC A I 

RLP 

0 345 

5746 


JMP I 

PI 

0346 

0400 

PI, 

400 


0347 

7600 

M200, 

-200 


0350 

4342 

WORDS, 

4342 


0351 

7447 

MY, 

-331 


0352 

7462 

MN, 

-316 


0353 

7564 

MFORM, 

-214 


0354 

0121 

VTABP, 

VTAB 


0355 

0600 

NINP, 

NIN 


0356 

0000 

NV, 

0 


0357 

0033 

RLP, 

RL 


0360 

0035 

VL TABP, 

VLTAB 


0361 

0034 

RSWP, 

RSW 



/RESULT LINE 
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t'AUE a 


0 400 

4403 

*400 

JMS I MESS /"INPUT BLOCK : " 

0 401 

4543 


4543 

0402 

4311 


4311 

0403 

1620 


1620 

0404 

2524 


2524 

0405 

4002 


4002 

0406 

1417 


1417 

0407 

0313 


0313 

0410 

4072 


4072 

041 1 

4000 


4000 

0412 

4431 


JMS I NINQ 

0413 

4404 


JMS I UNFL 

0414 

3251 


DCA RBL /READ BLOCK 

0415 

1034 


TAD RSW /RESULT SWITCH 

0416 

7640 


SZA CL A 

0417 

5243 


JMP RTAPE 

0420 

4403 


JMS I MESS /"RESULT BLOCK : " 

0 421 

4543 


4543 

0 422 

4322 


4322 

0423 

0523 


0523 

0424 

2514 


2514 

0425 

2440 


2440 

0426 

0214 


0214 

0427 

1703 


1703 

0430 

1340 


1340 

0431 

7240 


7240 

0432 

0000 


0000 

0433 

4431 


JMS I NINQ 

0434 

4404 


JMS I UN FL 

0435 

3370 


DCA WBL /WRITE BLOCK 

0436 

1021 


TAD SETSW 

0437 

3034 


DCA RSW /ONE IF SAME AS INPUT 

0440 

1034 


TAD RSW 

0441 

7650 


SNA CLA 

0 442 

5245 


JMP . + 3 

0443 

1251 

RTAPE* 

TAD RBL 

0444 

3370 


DCA WBL /RESULT BLOCK SAME AS 

0445 

1370 


TAD WBL 

0446 

3255 


DCA RWBL 

0447 

4402 


JM S I RWTAPE 

0450 

1201 


1201 

0451 

0000 

RBL» 

0 

0452 

1000 


1000 /INPUT BUFFER 

0453 

4402 


JMS I RWTAPE 

0454 

1201 


1201 

0455 

0000 

RWBL, 

0 

0456 

1200 


1200 /OUTPUT BUFFER 

0457 

1437 


TAD I NVP 

0460 

3374 


DCA CNTR 

0461 

1035 


TAD VLTAB /VARIABLE LINE TABLE 

0462 

3010 


DCA 10 


INPUT BLOCK 
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0 463 

1121 

TAD 

VTAB /VARIABLE TABLE 

0464 

301 1 

DC A 

1 1 

0465 

1410 

TAD 

I 10 /GET V LINE # 

0466 

4436 

JMS 

I SETLP /SET 12 TO READ V 

0 467 

1412 

TAD 

I 12 

0470 

341 1 

DCA 

I 1 1 

0471 

1412 

TAD 

I 12 

0 472 

341 1 

DCA 

I 11 

0473 

1412 

TAD 

I 12 

0474 

341 1 

DCA 

I 1 1 

0475 

2374 

I SZ 

CNTR 

0476 

5265 

JMP 

.-11 

0477 

1033 

TAD 

RL 

0500 

4436 

JMS 

I SETLP 

0 501 

1012 

TAD 

12 

0 502 

1375 

TAD 

C200 

0 503 

3012 

DCA 

12 /SET 12 TO WRITE RESULT LINE 

0 504 

1376 

TAD 

DATA 

0505 

1375 

TAD 

C200 

0506 

3010 

DCA 

10 /OUT PUT BUFFER 

0507 

3021 

DCA 

SETSW 

0510 

1376 

TAD 

DATA 

051 1 

0 512 

1375 

7041 

TAD 

CIA 

C200 

0513 

1432 

TAD 

I WORDP /BLOCK LENGTH 

0514 

3022 

DCA 

22 /TEMP 

0 51 5 

1410 HUNT* 

TAD 

I 10 /IS S BEFORE RESULT LINE ? 

0 516 

1030 

TAD 

MDOL 

0517 

7640 

SZA 

CL A 

0 520 

5325 

JMP 

. + 5 

0 521 

1010 

TAD 

10 

0 522 

3020 

DCA 

20 /TEMP 

0 523 

3420 

DCA 

I 20 /DELETE S 

0524 

5351 

JMP 

NODOL 

0 525 

0 526 

1012 

7041 

TAD 

CIA 

12 

0 527 

1010 

TAD 

10 

0 530 

2010 

I SZ 

10 

0 531 

2010 

I SZ 

10 

0532 

7710 

SPA 

CL A 

0533 

5315 

JMP 

HUNT 

0 534 

2010 

I SZ 

10 

0535 

2010 

I SZ 

10 

0536 

2010 

I SZ 

10 /RESULT GOES IN HERE 

0537 

1410 

TAD 

I 10 /LOOK FOR $ AFTER RESULT LINE 

0 540 

1030 

TAD 

MDOL 

0 541 

7650 

SNA 

CL A 

0 542 

5352 

JMP 

NODOL+ 1 

0543 

2010 

I SZ 

10 

0 544 

2010 

I SZ 

10 

0545 

1022 

TAD 

22 /MINUS END OF BLOCK 

0 546 

1010 

TAD 

10 

0 547 

7710 

SPA 

CL A 
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0 550 

5337 


JMP .-11 




0551 

2021 

N0D0L, 

ISZ SETSW 

/$ NOT 

FOUND OR 

WAS 

0 552 

4773 


JMS I CALC 




0553 

1044 


TAD 44 




0 554 

3412 


DCA I 12 

/FILL IN RESULT 

LINE 

0 555 

1045 


TAD 45 




0 556 

3412 


DCA I 12 




0 557 

1046 


TAD 46 




0560 

3412 


DCA I 12 




0 561 

1021 


TAD SETSW 




0562 

7650 


SNA CL A 




0 563 

5366 


JMP . + 3 




0 564 

1377 


TAD DOL 

/RESULT 

IS LAST 

LINE 

0 565 

3412 


DCA I 12 




0 566 

4402 


JMS I RWTAPE 



0567 

1401 


1401 

/RECORD 

RESULT BLOCK 

0 570 

0000 

WBL, 

0 




0 571 

1200 


1200 

/OUTPUT 

BUFFER 


0 572 

5200 


JMP 400 




0 573 

3600 

CALC, 

3600 




0 574 

0000 

CN TR, 

0 




0 575 

0200 

C200, 

200 




0 576 

0777 

DATA, 

777 




0577 

0244 

DOL, 

244 






♦ 30 





0 030 

7534 

MDOL, 

-244 




0031 

0600 

NINQ, 

NIN 




0032 

4342 

WORDP, 

4342 




0033 

0000 

RL, 

0 




0 034 

0000 

RSW, 

0 




0035 

1400 

VLTAB, 

1400 




0036 

0620 

SETLP, 

SETL 




0037 

0356 

NVP, 

NV 





153 


I 



PAGE 3 


0 600 
0 601 
0 602 
0 603 
0 604 
0605 
0606 
0607 
0610 
061 1 
0612 
0613 
0614 
0615 
0616 
0617 
0 620 
0 621 
0622 
0623 
0 624 
0625 
0626 
0627 
0630 
0 631 
0632 
0633 
0 634 


0 062 
0063 
0 064 
0 065 
0066 
0067 
0 070 
0071 
0 072 
0 073 
0074 
0075 
0076 
0077 
0 100 
0 101 
0 102 



* 600 




0000 

MINI, 

0 



3021 


DCA SETSW 



4405 


JMS I 5 



1060 


TAD 60 



7640 


SZA CL A 



5600 


JMP I MIN 



1057 


TAD 57 



1231 


TAD MCC 



7650 


SNA CLA 



5634 


JMP I TAPE 

/RETURN TO TAPE 

SYSTEM 

1057 


TAD 57 



1232 


TAD MS 



7640 


SZA CLA 



5202 


JMP MIN+2 

/INVALID INPUT, 

TRY AGAIN 

2021 


ISZ SETSW 



5600 


JMP I MIN 



0000 

SETL, 

0 



1233 


TAD Ml 



7425 


7425 

/MQL+MUY 


0003 


0003 



7701 


7701 

/3CLINE- 1) 


1630 


TAD I DATAP 


3012 


DCA 12 



5620 


JMP I SETL 



0576 

DA TAP, 

DATA 



7575 

MCC, 

-203 



7T55 

MS, 

-323 



7777 

Ml, 

- 1 



7600 

TAPE, 
SETSW= 21 
RWTAPE= 2 

M ESS= 3 
UNFL= 4 
*62 

7600 



0062 

CTAB, 

CTAB 



0000 

0000 

0000 

Cl, 

o; Oi 0 



0000 

0000 

0000 

C2, 

o; o; o 



0000 

0000 

0000 

0000 

0000 

C3, 

o; o; o 



0000 

0000 

0000 

C4, 

o; o; o 



0000 

0000 

C 5, 

C 

o 

o 
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0 103 
0 104 
0 105 
0 106 
0 107 
0 110 
0 111 
0 112 
0 113 
0 114 
0 115 
0 116 
0 117 
0 120 
0 121 
0 122 
0 123 
0 124 
0 125 
0 126 
0 127 
0 130 
0 131 
0 132 
0 133 
0 134 
0 135 
0 136 
0 137 
0 140 
0 141 
0 142 
0 143 
0 144 
0 145 
0 146 
0 147 
0 150 
0 151 
0 152 
0 153 
0 154 
0155 
0 1 56 
0 157 
0160 
0 161 
0 162 
0 163 
0 164 
0165 
0 166 
0 167 


C6* 

Cl, 

C8, 

C9, 

CIO, 

VTAB, 

VI, 

V2, 

V3, 

V4> 

V5, 

V6, 

VI, 

V8, 

V9, 

V10, 

VI 1, 

V\2, 


o; oj o 

o; o; o 

oj oj o 

oj oj o 

oj oj o 

VTAB 

o; oj o 

oj oj o 

OJ OJ 0 

OJ OJ 0 

OJ OJ 0 

OJ OJ 0 

OJ OJ 0 

OJ OJ 0 

OJ OJ 0 

OJ OJ 0 

OJ OJ 0 

OJ OJ 0 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0121 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 
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0 170 

0000 

VI 

0 171 

0000 


0 172 

0000 


0 173 

0000 

VI 

0 1 74 

0000 


0 175 

0000 


0 176 

0000 

VI 


3, o; o; o 

4, Oi o; o 

5> o; o; o 
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CALC 

0573 

C I N 

0253 

CNTR 

0574 

C TAB 

0062 

C 1 

0063 

C 10 

0116 

C 2 

0066 

C 200 

0575 

C 3 

0071 

C 4 

0074 

C 5 

0077 

C 6 

0102 

C 7 

0105 

C 8 

0110 

C 9 

0113 

DATA 

0576 

DATAP 

0630 

DOL 

0577 

HUNT 

051 5 

M CC 

0631 

M DOL 

0030 

M ESS 

0003 

M FORM 

0353 

MN 

0352 

M S 

0632 

MY 

0351 

M 1 

0633 

M 200 

0347 

N IN 

0600 

N INP 

0355 

NINO 

0031 

NO DOL 

0551 

N V 

0356 

N VP 

0037 

P 1 

0346 

RBL 

0451 

RL 

0033 

RLP 

0357 

RSW 

0034 

RSWP 

0361 

R TAPE 

0443 

RWBL 

0455 

R WTAPE 

0002 

SETL 

0620 

SETLP 

0036 

SETSW 

0021 

TAPE 

0634 

UNFL 

0004 

VIN 

0302 

VLTAB 

0035 

VLTABP 

0360 

V TAB 

0121 
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VTABP 

0354 

VI 

0122 

V10 

0155 

V 1 1 

0160 

V 12 

0163 

VG3 

0166 

VIA 

0171 

V 1 5 

0174 

V 2 

0125 

V 3 

0130 

V 4 

0133 

V 5 

0136 

V 6 

0141 

V 7 

0144 

V8 

0147 

V9 

0152 

WBL 

0570 

WORDP 

0032 

WORDS 

0350 




ADDENDUM TO DECUS NO. 8-137a 
Program for Sforage Manipulation and Calculation of Data Using DECtape 


The DECtape for this program was not generated in a PS/8-OS/8 compatible format. One 
may bootstrap the tape using the old Disk Monitor System DECtape bootstrap. The 
instructions ,n the write-up should be sufficient for the running of the programs on the tope 
once the tope is bootstrapped. The listing for the bootstrap follows- 


DECtape 

Location 


Contents 


0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0220 

0221 

0222 


7600 

1216 

4210 

1217 

3620 
1222 
4210 
5600 
0000 
6766 

3621 
6771 
5213 
5610 
0600 
7577 
7755 
7754 
0220 


Also, please note that these programs utilize the EAE hardware option. 
Information for this addendum was contributed by: 

Cheryl Holm 

Medical Educational Computation Center 
University of Texas Medical Branch 
Galveston, Texas 

























. 

■ 







